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Seemed 
i HS fee Hs ne “FUNCTIONS TESTING «15 BHGED Upon, teen oF 
is ithe feet, Tea pa She 
MICRO-PR TED RAMS ISSIONS 


15 RHE ‘ony WILL BE “BRECEEDED BY ry On AND TERMINA ED BY BY AEOR//. 


ren. ore i: DISTINCT MODES IN WHICH THE PROGRAM CAN BE 
TO". MODE UP TO 2 DJ11°S WITH UP 


TO 32 
SPERAT ONL VT6L be ws AND ALL WILL BE TESTED 
aril  reete WHICH 00 : REQUIRE ant INTERVENTION 
SCREEN OBSERVATION (TESTS 1 THRU be pba re hEE UTED 
OR. TEACH VT61 REPETITIVELY. ALL ERRORS W ON THE 
SYSTEM CONSOLE (WHICH IS NOT TESTED EVEN IF I is A VT61). 


MANUAL MODE OLE ENT RY ADDRESSES AND TESTS IS 
REQUIRED. RODRESSES an TEETS CAN BE ENTERED IN A 
HON-SEQUENTIAL MANNER NDT HE SUBSEQUENT EXECUTION WILL FOLLOW 
THe ENTRY SEQUENCE. THIS. RODE MUST BE UTILIZED T0-ENTER THE 
KEYBOARD TESTS, DATA LOOP TEST. AND PRINTER CONTROLLER TEST. 
SEQUE _fONPLETION WILL EXIT TO THE RE-START POINT FOR THE 


> 


REQUIREMENTS 


EQUIPMENT 
POP 11 FAMILY COMPUTER WITH 8K WORDS OF MEMORY, A CONSOLE 


AND _UP 
TO 32 VT61°S CONNECTED TO THE HOST COMPUTER VIA DJ11(S). VT61 
MUST SE IN REMOTE; FULL DUPLEX AND AT LEAST 300 BAUD. 


LOADING PROCEDURE 


PROCEDURE FOR NORMAL BINARY PAPERTAPES SHOULD BE FOLLOWED. 


STARTING PROCEDURE 
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136 4.1 CONTROL SWITCH SETTINGS 
12g STANDARD PDP 11 FORMAT 
i ; SWwiS = 1 HALT ON ERROR. 
23 SWw14 = LOOP ON TEST 
33 SWw13 = 1 INHIBIT ERROR TYPEOUTS 
13 SWll = 1 INHIBIT ITERATIONS 
: ise SW10 = 1 BELL ON ERROR 
140 SW9 = 1 LOOP ON ERROR 
ise Sw8 = 1 LOOP ON TEST IN SWR<7:0) 
144 
146 SPECIAL NOTE 
147 IL IS A ots 1 0R A 
| fy eeanat tp erate: THE 
} 4 WW 1UL LIZE LOCATI aes AND 
350 prSPLay™ ate STER AND A 
| cn eEGIS E pfeSpec! VELY. THE 
l “inna WILL ONSIBLE FOR THE 
| 153 CORD ING. OF THE “SHIT REGISTER LOCATION 
ia PRIOR TO STARTING OR RESTARTING THE 
, 167 
| 158 
| 158 4.2 STARTING ADDRESSES 
bal’ 3 TART OF THE “AUTO™ ACCEPTANCE TEST 
| bs shy {2 THE STARTING ADDRESS ON THE “MANUAL” SELECT fest: 
| e8 
«ies 
| 16 S. OPERATING PROCEDURE 


/ és 5.1 AUTO ACCEPTANCE MODE (SA = 200). 


IN THIS MODE THE ONLY OPERATOR afk a at eg Sr IS SWR 
171 (Si) SEL TIONS a al mn “uth. any ERROR 


TERVENTION. "LOCATE THE BILICS)OLINES vii viel UNITS 
| 474 ATTA RCHED AND’ SEQUENTIALLY TEST ALL UNITS REPETITIVELY WITH TESTS 


r 


Ot lead 


176 
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S.2 MANUAL UNIT/TEST SELECTION MODE (SA = 204) 


6.2 


S MODE REQUIRES THE OPERATOR TO ENTER THE ADDRESSES 
tral ar aca et cores. 6." Tee “UP TO 70-2 ENTRIES). 
Ce HILL RESULT IN R 

east These te HET iti sce HEY 
By . NA T TOTIRE 





Cooly cee EE ebb ng or “od 
tA. THE TOR rust HER, Ue ST,‘ ENTER A bist 
TESTS TO BE EXECUTED IN THE ADDRESS EN 


ESS BEEP Huet nee Bie aati Beat 


_ TL RE : cr INTHE RePPING 8 uN ETING OF OF 6600 
Eg X a's Nn PERATIONAL vet's RTTACHED. a The 
Fe EXERCISOR RANUAL MODE ACO TROL C (63 SCTAL 5 ar ae RESULT 
In THE TERMINATION OF TESTING AT THE END OF THE CURRENT SUBTEST. 


NO OPERATIONAL VT61 ATTACHED 


eral | “BETES Rook)" poke Abr. Resi tw “8 unt utter ts 


von fd THE re T THE MESSAGE “NO vTet A a 2 
tee of 10 ToT, SEC". WILL BE DISPLAYED ON THE 
‘ 30 SECONDS UNTIL THE TEST IS STOPPED OR A UNIT 


EXCESSIVE “FATAL” ERRORS FROM UNIT UNDER TEST 


IF TEN FAT “ M Nae A at ME gat Mi Smits? OCCURS 
THE MES TESTI ne TS" WILL BE 
DISPLAYED AND THE TEST WILL EXIT. 10 THE I INITIALS NCE OF 
THE. REQUESTED MODE. IF THE TEST THEN LOcaTES. aN OPERATIONAL 
UNIT, IT WILL BEGIN TESTING IT. 


PERSE Sata Sanam Ue ORS See dee POO Se oak Ea 
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6.3 COMMON ERROR MESSAGES 


A. 


ESCAPE SEQUENCE ERROR (ERROR 1) 


THIS ERROR MESSAGE 1 RETURNED WHEN 8 SPECIFIC ESCAPE 
NCE OID NOT ELICIT THE EXPECTED RESPONSE FROM THE UNIT 

OER TEST... MESSAGE RETURNS TEST § T 

Twi) WORDS WHICH CONTAIN UP TO i pvt SOF THE FAILING ESCAPE 

SeQUENCE (1.€. IF “TRANSMIT ALL” FAILED; THE ESC,0, V_ WOULD 

BE op ISPLAYED IN THE FORMAT BYTE 1é2=O1S61?,AVTE 3+4= 


RECEIVE STATUS ERROR (ERROR 2) 
THIS ERROR MESSAGE 1S RETURNED IF ANY OF BITS 12 13, OR 14 

T IN THE INTERFACE RECEIVE BUFFER REGISTER. pata 
DISPLAYED IS THE ADDRESS OF THE CSR (CONTROL AND STATUS 
REGISTER) ale op He, JEAILING guhdT NTENTS THE 


Uae onty 
GIS My THE boric ER HICH WAS oT WHEN THE ERRORS 
REGISTER, cc 


SOFTWARE STATUS (VSTAT) ERROR (ERROR 3) 

THE LOCATION TAGGED “VSTAT™ IS USED BY THE PROGRAM TO STORE 
DYNAMIC CONDITIONS RELATING TO THE UNIT UNDER TEST. THE 
BITS WHICH MAY CAUSE A SOFTWARE STATUS ERROR ARE: 

BIT 15 SET FOR XOFF, CLEARED FOR XON 

BIT 14 SET WHEN START OF MESSAGE RECEIVED 

BIT 13 SET WHEN END OF MESSAGE RECEIVED 

BIT le SET FOR A PERIPHERAL ABORT MESSAGE 


BIT 10 SET WHEN AN INTERFACE ERROR DETECTED 


BIT 7 SET WHEN AN XOFF WAS DETECTED AND THE 
TRANSMITTER WAS SHUT DOWN BY THE SOFTWARE. 
BIT 1 SET WHEN TRANSMIT COMPLETE 


THE ONLY BIT WHICH WILL UNCONDITI 
BIT TAD BN ERROR TS, DEPENDENT UPR “OTHER ue uit “EE SET AND 
(re ISSION BITS 1, 13 AND 14 ta 


REPORTED). DATA DYspLaveD 16” THE. PASS oe ter oF 


EXPECTED STATUS AND ACTUAL S 
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DO. VT61 HUNG ERROR (ERROR 11) 


THIS R stg 
TRewSnTSS7ON(S) "bc OES “it RESULT IN “AL SOMS),, Al EON, EOM( 
ERRORS WILL RESULT" IN THE TEST ABORTING. 


RESTRICTIONS 





A. IT IS IMPERATIVE THAT BOTH THE INTERFACE AND THE VT61 SHOULD 
BE PLACED IN FULL DUPLEX AND REMOTE (NOT LOCAL) MODE. 


8. UNIT TO BE TESTED CANNOT BE THE CONSOLE DEVICE. 


C. FOR THE ALITOMATIC TEST MAPPING OF THE DJ11°S, ALL ADDRESSES 
FOR THE UNITS TO BE TESTED MUST BE WITHIN THE STANDARD Dec 
RODRESSES AND VECTORS. IF THIS IS THE CASE, THE 

PROCEDURE OUTLINED IN SECTION 8-B MUST BE FOLLOWED BEFORE 
TESTING IS BEGUN. 


Peery eee ene are Bes 


8. MISCELLANEOUS 


O— = b= 0 0 0 = 
MNOUlL£ WTur-C 


A. EXECUTION TIME FOR THE AUTO SELECTION TESTS (TEST 1-20) WITH 
eco TO A BAUD RATE OF 9600 BAUD IS APPROXIMATELY 90 


B. TO TEST A DEVICE (DJ11 WITH AL 2 ATTACHED) NON-STANDARD 
cin LOCATION “STRTAB™ CAN BE MODIFIED TO CONTAIN 
LOWE Ry eH Me ne ules AND LOCATON 
EROTAB™ > MODIFI TO HIGHEST NON-STANDARD 
SOOPER’: A INTERE ES nITHIN T rREU ADDRESSES WILL BE 
AND TES PROPER RESPONSES ARE OBTAINED. 


6. 19 CHANGE Tt THE NUMBER OF FATAL ERRORS ALLOWED BEFORE TESTING 


MODIFIED TO’ THE DESIRED COUNT. 


WWWIWGIGWOIWIG 


ORION PUNE Ss 


D. RODE, THEREFORE TEST 1 AND TEST 23 ARE RUN IN MAINTENANCE 
ALL TRANSMISSIONS FROM THE VT61 ARE EXPECTED 
BE PRECEEDED BY A SOM AND TERMINATED WITH A EOM. 


SERRE 
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9.0 


3.1 


9.2 


3.3 


101 


PROGRAM DESCRIPTION 





INITIALIZATION 


IN THe PRE-DETERWINED, ‘AREAS, DeViCES ARE THEN TESTED FOR 


INTERRUPT CAPABILITY VIA NOT BESPO MAINTENANCE” 


GRITS oe THEN 1 SO HEE PURE, Fa TPE, A 
ERATIONAL UNITS ARE STORED INA TABLECDLTBL) 


00 NOT RESPOND WITH THE PROPER “IDENT” ARE a, 
TESTED’ SEQUENTIALLY. 


TEST 1 CHECK ALL COMMON ESCAPE SEQUENCES. 

THIS TEST ISSUES ALL tere SEQUENCES AND INSURES THE VT61_ HAS 
NOT FAILED DURING AN ESC SEQUENCE BY ISSUING A ESC Z TO FORCE A 
V¥T61 RESPONSE. be PURPOSE OF ye TEST IS TO ATTEMPT TO INSURE 
Mi ve STS WILL NOT IN A “HUNG” UNIT. DATA IS 


ALL ERRORS ARE REPORTEDED AS ESCAPE SEQUENCE FAILURES(ERROR 1). 


TEST 2 CHECK MAINTENANCE MODE. 
ete 70 NED TO ALL ING Me nt en MODF. CAUSES SOM AND EOM TO 
y rere gE FROM VT6 


See Te dees Whe at 
ABE 1S BC OEP RED. 2 SE IS ISSUED TO THE UNI 
AND THE RESULTI rhG. RESPONSE FROM THE VT61 IS CHECKED FOR SOM/EOM. 


ERROR 22 WILL BE ISSUED IF EITHER COMPONENT(SOM/EOM) IS MISSING. 


TEST 3 CHECK DIRECT CURSOR ADDRESSING 


THIS TEST INSURES THAT THE CURSOR wt RESPOND TO DIRECT CURSOR 
ADDRESSING. Oe vies IS RESET THE CURSOR POSITION IS 
VERIFIED TO RE ron HE CURSOR rene THEN MOVED TO ROW 23 COLUMN 

80 AND THE POSITION IS "AGAIN VERT 


CURSOR POSITIONING ERRORS(ERROR 7) ARE REPORTED IF THE POSITIONS 
ARE INCORRECT. 


EE TT 
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9.4 TEST 4 CHECK LINEAR ADDRESSING MODE. 

ROUTINE TQ INSURE THE UNIT CAN ENTE® LINEAR ADDRESSING MODE. 1 
CHARI TERS ISSUED TO THE UNI> UNDER TZCST THEN THE CURSOR 
POSITION IS READ AND MUST BE ROW, COL.O. 


AN ESCAre SEQUENCE ERROR (ERROR 1)IS ISSUED IF THE CURSOR IS NOT 
AT ROW1,COL.O 


9.5 TEST S CHECK XON/XOFF FROM VT61 


TEST TO INSURE Me eet OF ee he oe theo Wi ar ree ous? 
sik le HOTU Sloane te pea 
He MAXIMUM TRANSFER TINE, HAS DY (aes 


ERRORS ARE REPORTED IF THE FORMAT OF ERROR 3(VSTAT ERRORS) AND 
WILL REFLECT EITHER LACK OR EXCESS OF BIT 15. 


9.6 TEST & CHECK XON/XOFF TO VT61 


ROUTINE TO VERIFY OPERATION OF XOFF AND XON TO THE VT61. A FULL 
SCREEN _TRANSMIT i, ‘* poe AND A SERIES OF XOFFS AND XONS ARE 


ISSUED TO THE TERM NTIALLY. ERRORS ARE REPORTED IF A 
XOFF DOES NOT OTOP ORB RUE ON RESTART THE TRANSMISSION. TEST IS 
ENDED WHEN EOM IS SE oF oR 

ORS ARE REPORTE S FOR XOFF FAILURE AND ERROR 1S FOR A 


ERR D(ERROR 1 
XON FRILUREJAS SPECIFIC ERROR MESSAGES. 


9.7 TEST 7 CHECK RAM AND COMMUNICATIONS PATHS 


ROUTINE TO TEST VT61 RAM AND THE COMMUNICATION PATHS. _ THIS 
ty pig ISSUES A SERIES OF FULL viseeer preening, 7 100 


REMENTING, AND REY. 

THE FULL SCREEN IS THEN TRANSMITTED TO THE HOST AND AFTER EACH 
ITERATION RECEIVED DATA at CHECKED AND ALL ERRORS (INCLUDING 
TRANSMISSION) REPOR 


ERRORS REPORTED COULD BE ERROR 2 FOR A RECEIVE STATUS ERROR, ERROR 
4 FOR DATA ERRORS AND ERROR 5 FOR A RECEIVE BYTE ‘COUNT ERROR. 
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9.10 TEST 10 CHECK TRANSMIT AND RECEIVE CHECKSUMS. 

454 ROUTINE TO TEST THE ABILITY OF THE V7 VoL 19 ErieD Bare AND. feet 
. TRENSATTE FULL t BUFFER UPOATL ING, : CALCULATED. CHECKSUM 
457 HARACTER TRANSMITT SCOPE SEQUENCE REQUESTING THE 
45 RCE CHECKSUM IS EMBEDDED ar” THE OF XMIT BUFFER AND THE 
45 C rHecksun IS COMPARED TO THE CALCULATED. SUBTEST ” 
460 PERF ORNS THE SAE TYPE OF CHECK ON THE VT61 TRANSMIT CHECKSUM 
461 UTILIZING THE DATA SENT TO THE 61 IN SUBTEST “A”, DURING A FULL 
152 TRANSMIT 
464 ERROR 3 Is ISSUED (WITH CALCULATED AND RECEIVED CHECKSUM) IF 4 
4ES ERROR 1 DETECTED. ERROR 14 IS ISSUED (WITH 
HEB Sante DATA’ a3 ERROR 13) IF VT61 TRANSMIT CHECKSUM ERROR IS 
4s TECTED. 
¥ES 
153 
42 9.11 TEST 11 CHECK BASIC CURSOR COMMANDS 
473 ROUTINE | TO INSURE I CURSOR COMMANDS RESULT IN CORRECT CURSOR 
474 DIN THE SEQUENCE: RESET, CURSOR 
475 Raut c CURSOR DOWN 08 LEFT CURSOR UP. THE READ CURSOR 
4 POSITION COMMAND ‘i iScuE AETER” EVERY MOVE CURSOR COMMAND AND 
4 RECEIVED POSITION IS COMPARED TO THE EXPECTED POSITION AND ANY 
178 ERRORS REPORTED. 

| 480 AN ESCAPE SEQUENCE ERROR(ERROR 1) AND A CURSOR POSITIONING 

: 481 ERROR(ERROR 6) ARE ISSUED IF ANY FUNCTIONS ARE DETECTED TO FAIL. 

483 | 

| ues 9.12 TEST 12 CHECK READ CHARACTER AT CURSOR 
487 ROUTINE TO INSURE THAT READ CHARACTER AT CURSOR FUNCTIONS . 
4yge CORRECTLY. COMMAND SEQUENCE IS: RESET CURSOR LEFT. RE 
4B9 CHARACTER AT CURSOR. ERROR IS REPORTED” IF THE CHARACTE 
430 RECEIVED IS NOT AN “A”. 
4 an ESCAPE SEQUENCE ERROR(ERROR 1) AND A DATA COMPARE ERROR(ERROR 
433 | ) ARE ISSUED IF A FAILURE IS DETECTED. 
495 
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9.13 TEST 13 CHECK REPLACE AND INSERT CHARACTER MODES 
TO VERIFY OPERA 


ALP NEREPLACE MODE) A 1 BARA SE af ie 


Ree READ #00 VERIFIED TO, 8" 17e~ rete Sie Tee elt 
INSERTION (AT THE HOME POSITION) i. vERIF 
BE “172” AND ROWI, COL.O SHOULD BE 


IF AN ERROR IS DETECTED IN EITHER 00e, APPROPRIATE ESCAPE 
SEQUENCE ERROR(ERROR 1) IS ISSUED. 


TEST 14 CHECK VT61 SCROLL CAPABILITIES. 


ROUTINE TO INSURE ma WILL SCROLL IF A LINE FEED IS ISSUED FROM 
ROW 23. OF FROM ROW COL. 79. IN SUBTEST “A” 
RoW OTs INITIALLY. We TEN TO A AND ROW 1 A 1. AFTER 
ED (AND RESULT 


T 
TA CHARACTER “A” IS ENTERED. THE CURSOR 
POSITION IS THEN READ AND SHOULD BE ROW23, COL.OO0. THE CHAR. AT 


A SCROLL _ERROR(ERROR 23) IS ISSUED IF EITHER FUNCTIONS FAIL 10 
ELICIT THE PROPER RESPONSE FROM THE UNIT UNDER TEST. THE ERROR 
PC WILL DISTINGUISH BETWEEN THE FAILING FUNCTIONS. 


9.15 TEST 15 CHECK ALL SCREEN ADDRESSES. 


wae are! yy THAT THE Tron oe ak vaHdg 15 TESTED. BY 
FICCING THE COMPLETE SCREEN CEXCEPT \ROW 23,cOL.73 GMICH "WILL 

) WITH THE CHARACTER “A” AND THEN POs TIONING THE 
CURSO on 18 OCR A) TO EVERY ’ ITION AND THE “A” AT TRAT. Pann on 


VERIY THAT ONLY SPACES EXIST ON THE SCREEN. ALL POSITIONS 
ONTAINING NON-SPACES ARE REPORTED. 


ALL ERRORS we: WILL {= REPORTED AS DIRECT CURSOR ADDRESS 


‘ERROS (ERROR } AND WILL CONTAIN THE POSITION THE BAD DATACNON 
ECTED A 


“SPACE) WAS Dette 


| TS cE 


i eo em ee we ee eee em ee a ee ee ee Ee ee ee eee 
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9.16 TEST 16 CHECK LINE FEED AND CARRIAGE RETURN 


ROUTINE TO INSURE a A! OF CARRIAGE RETURN 


B.E-8.) 70 Rowd, col 20 AND a Line FEED 15 188080, Ta Lit 


POSITION 1S THEN READ AND BE ROW A CORR 
IS THEN ISSUED AND CURSOR” POSITION OL, EOL 20 TO BE Rout. 


AN ESCAPE SEQUENCE ERROR(ERROR 1) AND A CURSOR POSITIONING 
ERROR(ERROR 6) WILL BE ISSUED IF AN ERROR IS DETECTED. 


9.17 TEST 17 CHECK ERASE TO END OF SCREEN 


ROUTINE TO VERIFY PROPER OPERATION OF ERASE TO END-OF-SCREEN. 
SCREEN IS_ WRITTEN TO 1920 INCREMENTING CHAR. ERASE TO END OF 
SCREEN IS THEN ISSUED AND THE ENTIRE SCREEN IS READ VERIFYING 
THAT IT IS ALL NULLS. 


IF ANY NON-NULL POSITIONS ARE DETECTED, AND ESCAPE SEQUENCE ERROR 
(ERROR 1) AND A DATA ERROR(ERROR 4) WILL BE ISSUED. 


TEST 20 CHECK SELF TEST, COPIER, AND ISSUE END OF PASS. 


SELF TEST (ESC T) IS ISSUED TO i. UNIT That TEST. AND AN 
TEST ee ay ae ie ISSUED I oe UNIT CANNOT RESPOND TO AN 
“ESCAPE < SEN a we! Test S_ COMPLETE. IF SELF TEST IS 
SUCCESSFUL an SCREEN IS_ WR ” TO 23 LINES INCREMENTING 
foe oe 23 LINES OF INCREMENTING CHAR. IN REVERSE VIDEO. 
by, IS THEN CHECKED AND IF A COPIER IS PRESENT @ COPY 
SCREEN COMMAND S ISSUED (NOTE: THIS COMMAND WILL CAUSE THE UNIT 
TO BE “BUSY” AND NOT RESPOND TO ANY FURTHER COMMANDS UNTIL THE 
SCREEN HAS BEEN COMPLETELY COPIED.) 


IF THE IDENT INDICATES A COPIER IS PRESENT AND THE COPY SCREEN IS 
UT EATED, edd COMPLETED, A “PERIPHERAL ABORT” (ERROR 20) 


ome 
© 


#4%END m AUTO-ACCEPTANCE TESTS### 


TEST 21 KEYBOARD ECHO TEST 


ROUTINE TO ECHO THE KEYBOARD. KEYS FOR TAB, BELL, CARRIAGE AND 
LINE FEED ECHO A NNEMONIC, NON-DISPLAY _¢ HAR. ECHO OCTAL 
UIVALENTS AND DISPLAY HENSEL VES. (EXAMPLES= 

E. , SPACE a Mey, ACE. } A CONTROL C ) WILL 
CAUSE’ A TEST E 


DOZVTJ.P 
PAGE 13 


9.22 TEST 22 TEST A LINE PRINTER(PRINTER CONTROLLER MODE) 
US TOUTE Vo a CE 
ERPER ING TESTO A SOTTERN OF INCREMENT NG, BOLLING CH WILL 
OUTPUTTED UNTIL A CONTROL C (003) IS RE 


ane § 


F THE LINE PRINTER IS DISABLED AFTER THE INITIALIZAIION OF THE 
EST, A “PERIPHERAL ABORT” (ERROR 20) IS ISSUED. 


CPrrrrmwow a 
0 0 b= 0+ © + pope pe 
Wd ~ IW UI £ UNUeH 


9.23 TEST 23 UNIT SIMULATOR TEST 


ROUTINE TO LOOP DATA/COMMANDS FROM THE VT61 BACK TO THE VT61. 
DATA STONS RESULTING FROM A ESC SEQUENCE WILL ALSO BE 
LOOPED AND WILL ENTER THE SCREEN AT THE CURSOR POSITION. THIS 
TEST CAN BE USED TO SIMULATE, OR CREATE SPECIFIC SCREEN PATTERNS 
AND OPERATIONS. A CONTROL C’ (003) EXITS TE 


e- 


9.24 TEST 24 PRODUCTION KEYBOARD TEST ir 


PRODUCTION KE TEST. ALL KEYS MUST BE DEPRESSED IN THE 
SEQUENCE I THE SCREEN. ALL ERRORS OR MISTAKES ARE 
‘DISPLAYED IN OCTAL POSTTIONAL FORMAT AND THE CORRECT KEY POSITION 
IN THE ROW ISPLAYED IN DECIMAL. THIS TEST IS RUN IN 

HEREFORE THE KEYS WILL ECHO THEIR POSITION 

NO MNEMONIC. THE EXCEPTIONS ARE THE INDIVIDUAL 
TESTS FOR THE SHIFT AND CONTROL FUNCTIONS. THESE TESTS ORE 
EXPLICITELY DEFINED BY MESSAGES TO THE OPERATOR. 10 ERRORS WILL 
46 CAUSE AN AUTOMATIC EXIT FROM TEST. 


ee ee ae ee 
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4] 
64> ~NLIST MD, MC, CND 
643 ME” 
644 TITLE HAINDEC-11-02VTJ-A 
Pi : #COPYRIGH 
sep TGH Te EQUIPMENT CORP 
bY? MAYNARD, MASS. 01754 
643 puee BY P. NELSON 
68] . THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
| b5¢ PACKAGE (MAINDEC-11-DZQAC-B1),AUG 29,1975. 
«SS ie 
p55 .SBTTL OPERATIONAL SWITCH SEITINGS 
657 * SWITCH USE 
658 c¢ #}#+;sssee _ 9 SsEEEEEEerecesssenSS 
659 + i 15 HALT ON ERROR 
660 * 14 LOOP ON TEST 
661 : 13 INHIBIT ERROR TYPEOUTS 





BEE SRR PO 8 ed 


ini aie SEB IRN EERE SSE SRR EB 


> 20 == &-2 0 0-< Ooo 
NM s+ Une- 


Oe 
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»’ SPERATIONAL See | = SETTINGS 


:% 12 NHIETT TRACE TRAE 
:+ i! *NEIBIT ITERATIONS 

: ig BELL oN ERROR 

:# § me aN N ERECR IN SWR<7:0> 


~SBTTL SRSIC CEFINITIONS 


921100 i$INITIAL ADDRESS OF THE STACK POINTER ### 1100 ##+ 
wwe 
EQUIV IOT, SCOPE BASIC EFIN A TON ON OF SCOPE eee 
\7r77é z 177776 » > PROCES WORD 
EQUITY PS PSW 
177774 STKLMT= 177774 $s STARK LIMIT pe crsren 
177772 PIRQ= 177772 + tel tg QUEST REGISTER 
177570 OSWR= 17757 “HARDWARE SWITCH REGISTER 
1775870 ODISP= 17757 : HARDWARE DISPLAY REGISTER 
-#GENERAL PURPOSE REGISTER DEFINITIONS 
p90900 Ro= “0 -GENERAL REGISTER 
ponte ae . : : GENERAL eee ateR 
R3= : RE NERAL REC ISTER 
090904 R4= %4 :: GENERAL REGISTER 
000095 z yA ' ssGENERAL REGISTER 
O80006 $s 6 > GENERAL peereren 
ome .EQUIY Rb,SP + NER POINTER 
EQUIV R7,PC :sPROGRAMN COUNTER 
-#PRIORITY LEVEL DEFINITIONS 
ets ae SSPRTORTTY LEVEL f 
0 PRi=s 49 ; sPRIORITY l 
000100 PRe= 100 * PRIORITY LEVEL 2 
000140 PR3= 140 ssPRIORITY LEVEL 32 
058200 PRY¥= 200 ssPRIORITY LEVEL 4 
600240 PRS= 240 > PRIORITY LEVEL 5 
900309 PRE= 300 - PRIORITY LEVEL 6 
000340 PR7= 340 -:PRIORITY LEVEL 7 
©#°SUITCH REGISTER” SWITCH DEFINITIONS 
1 CwiS= 100000 
Sul4= 440000 
SW13= 
010000 Sule= 1 
iat athe 4000 
ane eyoee “bp 
SWOS= 400 
000200 SWO7= 200 
000100 SWwOb= 100 
000040 SWOS= 40 
555010 uns: 10 
ft CWO3= 10 
CO0004 CWOe= 4 
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BASIC DEFT! 


vOoD02 
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Ol 10 o-0e- 00-40-04 40-40-40 6 
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MEER RR ERED NER ERREREREREER PREP REP ERR ERE RRR ERR 


2. Ege eee ee —__ <s ~~ 2 
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me Be : 5 
ed gf © woe 
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KO, footer oz 
Noor 3553 ves 
yi ws 
gerere 


22222 RERELES 
CANOARAANS » obs 
Seome rege wie 
af Woe o ORE Sea 


«ARBRE EE 
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O2V TRAP CRTCHER 
000890 
;#ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ™.42,HALT™ 
; #SEQUENCE TO CATCH ILLEGAL TRAPS INTERRUPT 
000174 ; #LOCA soe O CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
000274 300000 SisPReG: WORD OQ BF 9th a3 DISPLAY REGISTER 
000176 SWREG »WORD OQ sSOFTWARE SWITCH REGISTER 


envnnncenssesoenbersonosoncensnonseoeuehbsenecnssenesassoussane 


-SBTTL ACT11 HOOKS 
HOOKS tr BY ACTLI 
SvPC=. 





~ ;SAVE PC | 
SENDAD s;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
"WORD. 0 :s225ET LOC.52 TO ZERO 
-=$SVPC : RESTORE PC 
000:3 266 START: IMP AUTO sUSE AUTO SELECTION OF UNITS 


990200 i137 Oe 
O08294 O00137 ese MSTRT: JMP MANS sALLOW OPERATOR SELECTIONOF UNITS/TESTS 


SARITA! | 


——— _—-— =< CO LEE A SS Te 
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; RERRERERRELEAEERE LEER ESE SLERELERE DERE SELL ESE EES EL ERESEELEL EF SSS 
~SBTTL COMMON TAGS 


» #THI inetve be yb be} VARIOUS COMMON STORAGE LOCATIONS 
; #USE ROGRAM 


=1100 


SERIA ERC ESSER 





o" 
ewe 

a 
—~4 
~< 
Deo 
— 
zz 
—~ 
5 


pes se Bey eae FOR Eis 


REQUIRED 
AFTER A “LINE FEED” 
STLABLE™ FLAG (BITcBi7> SBS YES) 
TIONS 


nw 
3 
ioe 
an 
= fu 
Fs 
ae - 
= 


Bat tee geneee’ WORD 0  Conrarte Pes S COUNT 
0011 STSTNM: .BYT on T sie 
0011 RFLG: .BYT CONTAINS 
0511 CNT: . $36 CONTAINS ts ads CAYERATION. COUNT 
001106 opty. -WORD OQ 
BBliie SentiL: “HORD : Saath he RETURN F 8 eee 
Bt Bat ig HM EVIE l 33C GNTAING FAK aK, ERRORS PERT 
! B13 O5111 ‘te 0 sCONTA AST ERROR. INSTRUCTION 
| Bis ool bs 5 scone ores OF *BAD’ DATA 
816 001124 SGDDAT: .WORD 0 ;;CONTAINS *GOOD’ DATA 
| Bi bolle SEODAT: -WORD 9 ;;CONTAINS *BAD’ DATA 
: 18 001 ! 0 > *RESERVED--NOT TO BE USED 
| B19 901132 -WORD 
| 1134 WORD OQ 
| 1 : WORD DSWR ADDRESS OF SWITCH REGISTER 
! l ISPLAY: .WORD DODISP >: ADDRESS OF DISPLAY REGISTER 
! 1 STKS: 177560 : 2 TTY KBD STATUS 
: l T 1 sTTY k 
4 ‘TTY TATUS REG. ROORESS 
i : 
] 
l 
1 
1 
1 
1 
1 
l 
1 


oorrervevververvarnernerveriey) & ae ££ tadeadcadeadrunrunradranees od 
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BRRR 
geet 
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- _-  ————— ae = we 
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5 SHEEERELLLAFARSSELAAASLALELAALEAELALLLLLASLAFLASLLELALELELELELAEL 


-SBTTL ERROR POINTER TABLE 
;#THIS TABLE CONTAINS THE ieD Be Uetn FOR EACH or THAT CAN OCCUR. 


TON SITEMB, THIS NUMBES FiDSeATES, WHICH ITEM IN THE TABLE IS PERTINENT. 


Ht ; ron = S 1 CERTINENT DATA IS ($ERRPC). 
snore: Fach ITER ff THE TABLE CONTAINS 4 Leese EXPLAINED AS FOLLOWS: 


7 M ssPOINTS TO T Bate HERGE 
. “ POINTS 1 iS THE TA 
::POINTS TO THE BATA FORMAT 


* SGENERAL ESCAPE SEQUENCE ERROR MESSAGE 


Rat 


pre 


;AN Fa ERROR Pono TO VT61_ _FATLED. 
; TEST#,£ PC,2 SEQUENCE BYTES,2 SEQUENCE BYTES. 


;sRECEIVE STATUS ERROR MESSAGE 


EN2 sRECEIVE STATUS ERROR 
Bis ;ADORESS,STATUS ,ERR. BITS, CHAR. 
DFO 


RECIEVE SOFTWARE STATUS ERROR MESSAGE. 
sSOFTWARE (VSTAT) STATUS ERROR 
DT4 -PASS#, TEST#,GOOD STATUS,RECEIVED STATUS 
OF& 
sDATA ERROR 
Evy : 
OH4 
DFO | 
RECEIVE BYTE COUNT ERROR 


sBYTE 
‘BYTE 


;DATA EXPECTED DOES NOT MATCH RECEIVE DATA. 
TEST®,REC.CNT. EXPECTED DATA, RECEIVE DATA 


EXPEC 


OT NOT EQUAL BYTES RECEIVED. 
EXPECT YTE 


S RECEIVED 
OT] 

OFe 

;GENERAL DIRECT CURSOR ADDRESS FAILURE 


EMG ;CURSOR POSITION ERROR 


—- ——-— oe ae em SS ee ee 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


ssnechi 


ee 


S655 8585 


OOO 0OWWOOWwOW 
2 0 0—- b= 0 b= bb be 
WOnNGuU £LIT--O 
0 b= fy 
S28 Bolan see 


FREGSASOS ARES BS GOR ESR 


et 
+s 
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001 


O-> & «b> H-4 


G 
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GWG) 
b=— mp2 
Oo £Tu 


8885 
Bees 86 8 


2vTI= 
ERROR POINTE 
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DHE ;GD LINE, GD COL., BO LINE, BAD COL. 


;DIRECT CURSOR ADDRESS ERROR 


EM? ;sDIRECT CURSOR ADDRESS ERROR 
puLo :PASS#, TEST#,8D. ROW,8D. COL. 
DF6 


;LAST TEST-SELF TEST FAILED 


EM1O -VT6l FAILED SELF-TEST FUNCTION 
OHi1 :CSR, VECTOR 
OT1 
OF! 
-VT61 FAIL/HUNG ERROR MESSAGE 
Em11 TRANSMISSION TO VT61 CAUSED VT61 TO FAIL/HANG 
BH? -PASS#, TEST#,ERROR PC 
DT3 
OFY 
:GENERAL TEST FAILURE-PRECEEDS DATA/POSITION ERROR 
EMt2 vTbl UNDERR TEST FAILED-ERROR DATA FOLLOWS 
BA #, TEST#,ERROR PC. 
DT3 
OFY 
sRECEIVE CHECKSUM ERROR 
EM13 :VT6l RECEIVER CHECKSUM ERROR 
DHie -PASS#, TEST#, GD.CKSUM,BD CKSUM 
OF 
s TRANSMITTER CHECKSUM ERRROR 
Enis :VT61 TRANSMITTER CHECKSUM ERROR 
OT4 
OF 


sXOFF FAILED TO HALT BLOCK XMIT 


pts sXOFF TO VT61 FAILED TO HALT BLOCK XNIT 
OH1 ;PASS, TEST, VSTAT 

OT6 

OF4 


;XON FAILED TO RESTART BLOCK XMIT ? 


‘ 
— ee ee ee OS a SF FS Fe A 


-—* — eee es ee Oe ee 


FEROS SEER LOR BER ORR ETE Gadel Vol Sune ane bee hoe EOS 


= 6-28 -- & + b— 


ad 


2s S23 
S383 SRR Raa 
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iJ-8 
ERROR POIN 


i 
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BBSY 
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001124 





HO02 


eS-SEP-76 09:05 PAGE 20 


DTO: 


Tl: 
FO: 


OTe: 
DT3: 


He sXON TO VT&1 FAILED TO RESTART BLOCK XMIT 
OT6 

DF4 

;NO XON APTER UNIT WAS RESET 

EM17 ;NO XON_AFTER UNIT WAS RESET. 

Re? :PASS#, TEST#, ERROR PC 

DF4 


;PERIPHERAL ABORT ERROR 


EM20 ;LAST PERIPHERAL OPERATION ABORTED. 
HI PASS, TEST,ERROR PC, VSTAT 

OF 6 

sCANT CLEAR PERIPHERAL ABORT FLAG. 

ENel sCOULD NOT CLEAR LAST ABORT FLAG. 
DFE 

sMAINTENANCE MODE DID NOT FORCE A SOM/EOM. 

ity sBpcse TEST# EXP STAT. ACT STAT 
Dre 

sLINE FEED OR CURSOR RIGHT AT ROW 23 DID NOT CAUSE A SCROLL. 
EM22 sNO SCROLL FROM LINE FEED OR CURSOR RIGHT. 
.WORD  TSTNM,SERRPC, SGDDAT, SBDDAT,O 

yie 6000 

.BYTE 0,0 

-BYTE 1,1 sDECIMAL TYPE 


-WORD S$GCADR,$GDDAT, S$BDADR, SBDDAT, 0 
WORD S$PASS, TSTNM, SERRPC,O 
-BYTE 1,1,1,1 
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001124 
001124 
00: 120 


O81 


OT4: . WORD 
OTS: . WORD 
OTE: . WORD 
brs; “BYTE 
DFE: .BYTE 

- EVEN 
PUSHESP =SuB%e 


Ide 
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POINTER TABLE 


SPASS, TSTNM, SGODAT , SEDDAT , 0 
TSTNM, SGDADR , SGDDAT , SBDDAT , 0 
SPASS, TSTNM, $GDADR, 0 


,0,0 
,0,1,1 


1,0,0,0 


; INSTRUCTION DEFINITIONS 


s LLELLLLLLLLLLLLLLLELELLLLELLAAL LEAT LLLELLLELELLLLELAELELELLELLE 


SOFTWARE STATUS(VSTAT) REGISTER 


N 
23H HHH HEHEHE HHH 0H HO HHH BEE 


RXOFF 


=100000 


-SET FOR XOFF, CLEARED FOR XON 
“SET FOR On (EN OF OF MESSAGE). 
MESSAGE). 


BET pon 
PHERAL ABORT. 
REET ee Stora 
rT . 


ast WN SCA 3 CECE 


SET TO CALCULATE ot XMIT CHECKSUM 
;SET WHEN REVERSE VIDEO MODE a” ee 
SET TO CONVERT REC. CHAR. 


SET FOR FOR wer NT ON RON-SELECTED LINE. 


;SET HEN TERMINAL, I.D. RECEVED. 
SET UPON TRANSMIT COMPLETE 


a tie oe al ne a 


NITION OF DJ11 CONTROL BITS 


 seuseeeuseusueedstesesses TESSEEEseeSeSeSSTESS000000000000000008 


NABLE. 
INT. NODE AND XMIT INT. ENABLE. 
REC. AND XMIT SCAN ENABLES. 
REG. 2, REC. BUFFER READY FLAG. 


; TOTAL CHARACTERS ON SCREEN 
TOTAL SCREEN +1 


i 


0 — 0 = & = p= 9 — & 1. & 2 § + © = &—< b= H— 6 -+ 6 & = B= Bb 8 6 = 9-2 & 2 = + BB = BO P= F< & 9-2 2 2 ® 2 =» = = 9 HP — & ~~ 0 & 2 HH = Ho BH 
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Koa ERROR POINTER TABLE 
s LERALLFLEREFAAAALALLASLASLARALELLALELLAAAERALLLSAELLALELLALEF ESE 
STORAGE TABLES 
ieereateae ngeeeoernrenenrares ait teetee nage 
001550 oo0o04 VECT: .BLKW 4 PELE 
01£ DJTBL: .BLKW 4 RODRESS TeaLE 
0015 INTAB: .BLKW 20 ‘Possist OJil ADDRESSES 
001 DJLNE: .BLKW 40. LINESL 


5 EEEERERERLLEEEREA ELLE SEERA ALLELES RAE R EERE EEE REESE ELE EEE ER ESE 
CURRENT POINTERS FOR ADDRESSES, VECTORS AND LINES 
jponsunsdianssnanessnsnsaneanensaatecesbansantanenetssentenesess 
x 


Sart rae ‘Hoe : 
ss’ ee Mp lit NTERFACES 
STRTAB: .WORD ieo3i6 aie tANING OF LOATING ADD. 
ENDTAB: .WORD 164000 ‘Pip OF FLOAT ONG ADD. 
; HEREEOODEREEDEAEAHESSSoneeuebseeesseseseHeneeetiitesssseenes 
1 ADDRESSES IN TABLE REFLECT UNIT UNDER TEST 
ssnaemmepenembedtionstansatiakiacattnoctetshantetankertansia 


YICSR 






TS 5 







: .WORD ;031 STAT 
08 : WORD ;RE 
tk VXTCR: .WORD : 
984 : .WORD OQ BUF 
08s VECT: .WORD 6G *VECTOR FOR UNIT UNDER TEST 
086 : .WORD.. 0 *DJ11 LINE UNDER TEST. 
087 OCTLN : WO : -OCT. EQUIV OF TSTLNE (BITB-11) 
CRCSR: “HORE -CONSOLE RECEIVE 
089 CRBUF: .WORD 0 -CONSOLE DATA SeFEER 
$33 Se TT TABLE OF VIEL COMMAND AND SEQENCES | 
hae , aunnnsubseeSSGedenSsSesesSeEeeeeheis? E4030 SESESSESESEREEESERE 
096 000097 BEL  =007 
997 902004 000007 BEL: .WORD 007 » BELL 
099 00001 CARRT =015 
099 o02006 00001 CARRT: .WORD O15 -CARRIAGE RETURN 
100 00001 LNFED =Ole 
101 o02010 200012 LNFED: .WORD Ole sLINE FEED 
102 90011 TAB.Sté‘é=+O 
103 odevie 11 AB: 011 TAB 
104 POO eC Ee ee ree 
10S o02014 c00001 1 ABLE DELIMITER (ESCN) 
; suuucauberceunusseusceneucennuduastberiseessecueea SeGeeeeseens 
108 00011 .CHOM 110 
109 002016 00011 CHOM: .WORD 4110 ‘HOME CURSOR H 
ll 0001 CRT =103 
F oo2020 0001 CRT: .WORD 103 _sCURSOR RIGHT Cc 
114 0001 .CDWN 2102 
116 oo2c22 0001 COWN: .WORD 102 -CURSOR DOWN 8B 


—~4 
cy 


~ 
“J 


> = &} +> ~~ 6- +p — » - po 


ATH thet et srt 


B20 2 2 b= B2 be bo be be Bo Bn Fn he Bs Be = he 2 FF ho Fo bn Fn B= 2 Bo 0 2 Fe 2 hs 2 0 0 bs 2 2 ho he fo f= h-2 Bo B= = = 0 B2 Bw Be Bw Bw Gh Ho 


Fe OE EY PE Ee Eee eee 
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KO0e 
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ERROR POINTER TABLE 


] CLFT =] 
002024 001 éLFT: “he 104 sCURSOR LEFT OD 
000191 aT =1Cl 
O02eCe& 00010! , CUP: WORD 101 sCURSOR UP A 
011 . ,£0S =lNe 
002030 ll EOS: , lle sERASE TO END OF SCREEN J 


s FLEFLELLELLLLLALELELALALELALLLLLLFLLELELELLLLAELELERLLAAFLAFEEE 


002032 90000e WORD @ TABLE DELIMITER (ESCO) 
PURI TTTTTTiTereriverereT Teter Trt CLTtrererr itr erers ttre reer eter 


000101 , 

002034 000101 EMAIN: .WORD 101 sENTER MAINTENANCE MODE A 
000141 -DMAIN =141 

002036 9000141 DMAIN: .WORD 141 sEXIT MAINTENANCE MODE SA 
N00} -LKKG =] 

002040 vant LKKB: “LORD 105 sLOCK KEYBOARD E 
000145 -UNLKKB =145 

002042 000145 UNLKKB: .WORD 145 s;UNLOCK KEYBOARD SE 

1 spent. =103 

002044 l CT: .WORD 103 sENABLE LINEAR MODE C 
000133 -CLRCK 2-133 

O0e046 000133 CLRCK: .WORD 133 sCLEAR RECEIVER CHECKSUM [ 
000134 -CLTCK 2134 

002050 000134 CLTCK: .WORD 134 sCLEAR TRANSMITTER CHECKSUM 
"0011 =] 

0020Se Bot tS EERP: “ideo lle sENABLE REVERSE VIDEO J 
0001Se2 -DEMP =1S2 

0020S4 000152 DEMP: .WORD 152 sDISABLE REVERSE VIDEO SJ 
900137 -IABT 2137 

002056 000137 IABT: .WORD 197 s INITIALIZE ABORT FLAG - 

s LLEZLELLLLELLLELA LALLA LALELELA ELLE LEAL RELE RE LRELERLLELLLALLAEE 
002060 000003 , : LIM ( 
HHEHBHBEEGHEHEHEHEHEHEHBHB HEHEHE HEHEHE HEHEHE HE Ee 

000131 -EAPNT =131 

002062 000131 EAPNT: .WORD 131 sENABLE AUTO PRINT MODE Y 
000171 .DAPNT =17]1 

002064 000171 DAPNT : 171 sDISABLE AUTO PRINT MODE SY 
000111 -EINST “than 

002066 000111 EINST: .WO 111 sENABLE INSERT I 
000151 -ERPL =151 

002070 000151 ERPL: .WORD 15] sENABLE REPLACE SI 
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ERROR POINTER TABLE 
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s FLELLELEAELELEL FLEELELELELLLEAEELELLLAFLELALERELLRAALFIAREASLLLEE 
: sTABLE DELIMITER (170) 
Mei ttitiiiiiitiitiitiitritiittitititit tt iititi tte tite: 


RAD =054433 
Mateny “tBRD 054433 
.R23C79 =067467 

R23C 


79: ie ie! 


sDIRECT CURSOR ADDRESSING 
;CURSOR TO LOWER RIGHT 


RCUR: = WORD 047433 sDIRECT CURSOR ADDRESSING 

. s 

.RDCUR =00131 

RDCUR: .WORD a *READ CURSOR POSITION Y 

.0 2117 

ESCO: WORD 047433 -ESCAPE 0 

XMTAL: .WORD 900126 sTRANSMIT ALL V 
WORD 

roene = WORD 047433 sESCAPE 0 

‘ s 

TCUCH: - WORD 427 -XMIT CHARACTER AT CURSOR. W 

‘tine? = WORD 047433 sESCAPE 0 

‘ s 

TXRCK: .WORD 135 sXMIT RECIEVER CHECKSUM ] 
WORD 

ae - WORD 047433 sESCAPE 0 

= 

TXTCK: - WORD 136 -XMIT TRANSMITTER CHECKSUM 

; = WORD 147433 sESCAPE 0 
RABT. - HORD 140 READ THE ABORT FLAG. \ 


s LLLALLALLELLAELELALA LAL ELAR LAL LEL LARA LEL RRL LKLALLELE RAL EL ALLELE 
 AeeeEeesorEeeEEseuunueuesuusandintessesnesSeEEOesDESstHHieees 
 RELELALLLLALLALRAA LEAL LAELL LARK LAKE LLELE LARA LLRLLES LELELLLE EEE 
HHH aera a HH 


-EPNT <=127 
EPNT: .WORD 127 sENABLE PRINT MODE. W 
.DPNT 2130 
OPNT: .WORD 130 sDISABLE PRINT MODE X 


ull 
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TABLE 


“DZVTJ-A &5-SEP-76 


MAT Bate 
OZVTJ.Pli ERROR POINTE! 


1 
1 135 .CPYSC =135 
iF) B00 38 ~ENAC 

j 


=136 
Bie ‘PeeeN =000150 


;COPY SCREEN 
AUTO copy MODE ESC ft 


s ENABL 
‘BRENT Te Seneen’ ng O° 


—e-e— 
trururu 
Stare 

== 





l 
1236 : eee ESCAPE CODE EQUIVAENCES GO IDENTIFIERS 
ie : JHE HEHEHE HEHEHE EIA 
po00 -ESC =033 sPRIMARY ESCAPE CODE. 
= 

1 : 002154 Bese ESCP: .WORD 050033 sESCAPE P 
l 1 ~ ISTER =le4 
leva 002156 900124 TSTER: .WORD 124 “TEST TERMINAL(ESC 0 OT ; 
ee SPaUh EBB FoR Rate anew es. 
1 CKGP = = 106 ‘ENABLE REC.TO SUB 137 FROM ALL REC DATA 
l | NCKGP =} ren BLE NORMAL RECEIVED DATA. 
1 CPABRT =171 OPIER ABORT 
1 0 T 2172 : PRI NTER ABORT 
] T sil7 iNO  ABOR 4 
1 002160 aa IDENT: = aR 0 VTb1 BENT CODE 
ise bos ie4 Facet | =FecP 
Less 002162 ESCZ =ESCZ_ 
1528 902162 peeps gERS! WO osso33 SOCTAL EQUIV. OF ESZ SEQUENCE 
1258 000122 “RESET 122 , 
1259 002164 o00l22 RESET: .WORD 122 :VT61 INITIALIZE R 
1 9021 SCN: .WORD 000033 -ESCAPE N-FLAG 
1 51 1 ROICOO: .WORD 041 ‘ROW, COL. O 
1 021 RO1Ce0: .WORD O3204! -ROWOL, COLUMN 20 
1264 174 R : .WORD O20066 :ROW22. COL. 00 
1265 002176 O20054 Riec0O: .WORD  O200S4 -ROW 12,COLUMN OO 
L266 ? .R23C00 =020067 
Leb? 02200 ? ResC00: .WORD  O20067 -ROW23, COL.00 
1 140 .ROOCII =025440 
1269 op2202 925 ROOCIL: WORD  O2e5440 *ROW, COL. 11 
1 ath se WORD 932040 “ROW O,COLUMN 20 
} : WORD 404 *ROW OO, COLUMN § 
1 1 CUHME: .WORD O20040 -OCTAL EQUIV. OF CURSOR HOME. 
1 bocele 7440 ROOCSO: . 067440 ROW O UMN 
14 06706 Re3c78: -HO 067067 sROW 23,COL. 78. 
l bO0041 “ROL sed ROW 
Ros =e ROW 28 
OR | x Si 

. = : 
{Se5 43 -CO3. 0s 343 “COL. 3 
1283 095050 cog 40S =S0 -COL. 8 
1284 Cll = #533 <COL. 11 


(= ”-—<— — re ae ee ee ee eee eee ee ee eee 
, 


; 
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. 4 COL. 
3} see fOr: 59 
a 2110 sCOL. 40 
C79. Ss #157 -COL. 79 
He TIP TRE LAN eo |.|FFFCFS 
-SPECIAL RECE! V S. 
TTT TTT TESTS ETT ETE ST TTT TSTT TET TTT TTT TTT TTT TTT TTT TTT TTT eTTe Ty 
eon =02 -START OF 
OM =04 sEND OF MESSAGE 
XOFF =23 <TURN OFF TRANSMISSION 
CHRO: ORDO STORAGE FOR SINGLE CH. READ 
VERIs “HORE : TEMP. ToRAGE Ri. 
ao ig a cet eae 
TeIBIR Wd R iN SE 
MODE! “ORD Lae NG MODE BYTE TEE TYPE 
FTLCNT: .WORD oANGOUPLET TE XM 
ALWCONT: .WO 10. i COMPLETE’ XMITS. 
ONE: WO l 
TOADD: .WO 
BUBCT: .WORD 
TPREG: OQ 
PRESC: .WORD sPRIMARY ESC COMMAND 
ESSEQ: .WORD “SEQUENCE ASSEMBLY AREA 
DLAY:  .WORD 
OSVE: . WORD -TEMP STORAGE FOR RO ONLY. 
VSTAT: .WORD OQ 
BLKM: .WORD 0 sFLAG LOCATION FOR BLOCK MODE xMITS. 
TSTNM: .WORD O “DISPLAY STORAGE FOR TEST NUMBER. 


5 RERERK EE REREE EEK K EER ELLE ERE L AERA LEER ELL EEE R EAA E EEE REE REEL EE EE 
sAUTOMATIC SELECTION OF UNITS. i> 1 THROUGH 33 WILL 
sREPITIVELY EXECUTED FOR ALL UNITS. 

PrP ree rithm intr tt tT eee eer ener ee 


AUTO: CLR wove sZERO THE MODE SWITCH 
CTOR SE 


JMP *=D0 VE TUP 
AUTOA: JSR G0 0 FIND GOOD DJ11S 
SR :) a CK DIUS FOU 
SR R TA i URE VT61S ON DJ11 
IMP -VTb1l PRESENT -BEGIN TESTING 
BR <NO VT61 FOUND LOOP IN CHECKING 


s LELLAALAARERELELELLL AERA LALA LLL LE LARELEREREKE LALLA LAL E LARA LEAKE 


MANUAL UNIT AND TEST SELECTION. UNITS CAN BE 
+ SELECTED VIA CONSOLE OR AUTO SELECTION CAN 
;BE UTILIZED. TESTS ENTERED VIA CONSOLE WILL 
‘BE EXECUTED IN THE ORDER ENTERED. 


s RHEARLAERLLELA RELA ALLS LKRAKAREK LEELA ALARA LALE RARE RELL LA LAEELELE 


TE TT TE, ST TTT LL 
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O2VTI.F13 ” ERROR POINTES TABLE 
| ow 
| ] 22520 l 732 00009: O02232 MANS: ‘MOV #1, MODE ;SET_MODE TQ MANUAL SELECT. 
134 = 326 137 12154 IMP seta «GO SET UP CONSTANTS 
} 3332 4 4233 MANSA: TYPE 6MANA 
j 223% ? 012670 ISR Ta) ty ‘FIND GOOD OJ11°S 
Be 342 012703 901570 MOV alAThe 
| 134 002346 BLDADD: SLR 
] 057 SLDADA: JSR RO, GTNUM :GET A KE YBORRD INPUT 
| is OE BE BA ae 
133 Sse poss? 012624 ISR RO, TMNAD s YES VERIFY THIS ADDRESS, 
} 10223 MOV Re, (R3)¢ ;STORE 1 HIS 
| 135% 002370 0007 36 LOROD BND LOOK FOR RNOTHER ADDRESS. 
1355 137 O02010 1s CMPB sé. LNFED ¢ = LINE FEED? 
up 1025 BNE 3§ : NO 
| 3367 TST RD “ANY ENTRIES CREATED? 
' [3Se 1414 BEQ es :NO SE AUTO SELECTION OF UNITS 
| 1353 012624 JSR 0, TMNAD i YES-V a THIS ADORESS, 
1369 00241 19223 MOV Re’ (R3)4 : STORE LAST 
| 1361 OOe4i2 O01 24 MOV «ZERO. (RB) SAND SET A TERMINATOR IN TABLE. 
ize boeY 2776 JSR RO, COEV ‘CHECK DJ11 ON VT 61 SELECTED 
aie 1560 TST OITEL “ANY DJ11S GOOD? 
| 2364 O84 1741 BEG MANSA *NO-BACK TO SQUARE ONE 
| 36s oce430 090137 od0e469 INE BLDLNE i YES 60 GET TESTS 
1366 00243 peaaas 012776 2s: ISR CDEV ‘CHECK DJ11°S 
136? O0e440 013536 JSR RO. INITA ‘VERIFY DJ11 HAVE VT61 ATTACHED 
7 +258 ooe444 002460 IMP Bi ALNE : BEGIN LINE SELECTION 
1363 500450 BR MANSA iND UNIT F LOOP 
1370 Doetbe DOw037 020466 38: JSR RO, OCTBIN TKEEP BUILDING ADDRESS 
1272 02460 104400 94763 BLDLNE: TYPE OMANL - TYPE ENTER LINES MESSAGE. 
1373 1620 MOV BOJLNE,R3 :SET FIRST LINE ADDRESS. 
l BLOLNA: CLR Pz 
: 1375 920570 108: Sk RO, THU Ea Q KEYBOARD INPUT 
1399 possas bolone at} 
1378 O00eS04 91 MOV Re, (R3)¢ YES - STORE THIS ADDRESS 
1379 Oe506 ef ae: | 3 AND LOOK FOR ANOTHER LINE ENTRY. 
1380 10 120137 o0e010 1S: CMPB 1, LNFED ‘CHAR. = LINE F 
1381 002514 901403 BEQ :YES-SET TERI NAT TORS AND EXIT. 
138 00251 M2046 ISR RO. OCTBIN *NO-KEEP BUILDING ADDRESS 
1284 Gees 23: MOV R2. (R3)+ ; STORE AST ADDRESS. 
1285 1 177777 MOV 1 (R3)+ : STORE OF ADD. TERMINATOR. 
1386 005013 CLR (Ra) -STORE LAST LINE TERMINATOR 
1388 002534 104400 333 BLDTST: TYPE OMANB -TYPE 2ND PART OF MANUAL MESSAGE 
13839 O0eS4O 01 1570 MOV bINTAB, R3 “USE INTAB AS TEST & STORAGE. 
1290 002544 CLR ‘CLEAR TEST COUNTER 
129] 11$: CLR Re CL CLEAR nORERTC Oa 
1292 020570 10$: JSR RO, GTNUM CHAR. 
1392 467 ata CNPB as4 Caer COMMA 
1304 l BNE 
12% deste 10223 MOVB Re, (R3)+ :YES STORE A TEST 
i INC RY :AND INCREMENT TEST COUNT. 


~~ (=e 
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Pll ERROR POINTER TABLE 
e566 37 00040 CMP RY. 32. -COUNT =32? 
e oo1415 BEO MOnCK ‘YES ACCEPT NO MORE ENTRIES 
4 R 11$ <NO KEEP LOOKING 
002029 1S: ches RI, LNFED ‘or = LINE FEED? 
oe MOVB Re. (R3)4 *LOAD THE LAST TEST 
105913 : cLRE (R3) 580 INSERT TEST TABLE TERMINATOR 
10 112737 O00001 ocdz232 M5 #1. MODE “SET MODE SWITCH TO MANUAL 
002616 O00403 52 MODCK ‘AND BEGIN TESTING. 
p02620 004037 O204es 23: ISR RO, OCTBIN -CONVERT CHAR. 
002624 900781 BR 10$ 


panbennnnenererenpenseussesepesteestecerensesetinesieeee etter 
THIS ROUTINE LOOKS FOR THE OPERAT pore MODE REGUESTED AND 
SELECTS THE NEXT UNIT TO BE TESTE 


7: ACCEPTANCE TYPE TEST 
=O = OPERATOR SELECTION OF UNITS AND SEQUENCE OF TESTS. 
, snveceeheseEeseneesoSTeaSHESSELOGSEESSEESSSTESSSNTISHDESSORESH 





002626 012737 001560 001752 MODCK: MOV sINITIOL. SETUP OF AOORESS 
002634 012737 001550 001750 : AND vECT OR PO 
st ees flea; Bates" sooco. ay HS Sie ar 
01 001752 MOV st OA ADDRESS PO! 
002660 017703 177064 MOY CURRENT VECTOR POINTER 
ees tes be ne Te 
Dos 005737 002232 TST : 
BESe7e Bpat 002276 ‘3 GO RESTART AUTO MODE 
3 poe7te 177322 10S: IS7B ‘MANUAL LOOP REQUESTED? 
602719 00746 BR *YES-RESTART COMPLETE TEST 
le 0001 902332 2S: JMP =GO RESTART MANUAL 
002716 004037 014076 18: JSR : NO= OAD NeXt ADDRESSE 
10237 001752 MOV SS POINTER. 
10337 1 MOV ;STORE VECT. OF UNIT UNDER TEST 
1 HOV aS cH REL UE ECELNE VECTOR 
Bis 16014 MOV i T TRANSMIT VECTOR 
Bt OPe7e 001774 MODCA: HOV ORO LINE 70 UTILIZED 
ieee boi774 teen "CMP iteis L Y A SEPARATOR? 
| 002766 001 BNE <NO-TEST I 
: 002770 oooo02 001754 ADD ; YES -BUMP ‘tie -POINTER UPDATE VECTOR 
| ie 000002 001750 800 : POINTER T NEXT ADDRESS. 
| 1Me oe cin 2s: GR pe THE PSW,LSI11 STYLE. 
| 14 | RTI 
| is 16 0} 031617 015756 100$: MOV pumpianty REBUF ;SET UP END OF BUFFER 
| taey B59 Bar 130 saa HOV SICAL B+H77  JEOUF »INITITALIZE REC.BUFFER 
| 1422 Doso40 015737 031680 Ol MOV  STCRLB,TBBUF ©; INITIALIZE TRANSMIT BUFFER. 





MACY11 e7(732) e@S-SEP-7& 69:05 PAGE 29 





MAINDEC-11-D2VTJ-A 

D2VTJ.PL1 ERROR POINTER TABLE 
1453 00304 004037 Bests Ise RO, RESPTR fees INTERRUPT POINTERS. 
iiss BoStee rate 64 cLR Fen CLEAR CURRENT 1 NT TEST LOCATION. 
{ges Boshee Bee 8e5 th UCTER CLEAR ALL INTERRUPT FLAGS. 
1459 7e 020510 JSR RO. CONVLN ONVERT BINARY LINE : a CCTAL. 
1459 : 000010 176656 ae eMCLR, aVICSR SED EAR SILO AND UARTS. 
1461 £53108 ] pour 176652 MOV TSTLNE.3VXTCR ;LOAD THE XMITTER LINE 8. 
1462 114 1 176640 87 aSCAN, aVJCSR ALLOW REC. AND XMIT. SCANS. 
1463 003122 O16 JSR FLAG ; ISSUE ESC Z TO VT61 
L464 0031¢6 0 002160 MOV (SP)+, IDENT -*POP STACK INTO IDENT 
1465 l SPL 11$ - fF IDENT IS -1,CLEOR IT. 
1466 003134 002160 CLR IDENT 
1467 003140 11S: 
1468 003140 012637 Ode2216 MOV (SP)+, CHRD ::POP STACK INTO CHRD 
1469 003144 001375 BNE 1 
1470 003146 1 00216 CLAB OENT+] -CLEOR ALL BUT IDENT BITS. 
1471 003152 104400 OO11e TYPE SCALE 
i472 003156 104400 026132 TYPE DVUNIT - ISSUE UNIT UNDER TEST MESSAGE 
is 002162 O13746 001762 MOV VICSR, -(SP) 3s SAVE VICSR FOR TYPEOUT 
1475 003166 104402 TYPOS + OO TYPES-OFTAL ASCII 
‘4 170 npe .BYTE 6 -: TYPE & DIGIT(S) 

| 1477 003171 001 “BYTE :: TYPE LEADING ZER 
1478 003172 017746 176552 V SVECPT,-(SP)  3:SAVE SVECPT FOR TYPEOUT 

| 4479 TYPE THE VECTOR 

| 3480 (03176 104402 TYPOS -:GO TYPE--OCTAL ASCII 

| 1481 903200 006 -BYTE 6 *: TYPE & DIGIT(S) 

| J4e2 005201 900 “BYTE O -: SUPPRESS LEADING ZEROS 

| 1483 003202 013737 00:77 002216 MOV OCTLNE, CHRD 

| 4484 003210 000337 0o02216 SWAB Ci‘ 

| 4485 003214 01374 OOcci6 MOV CHRD, -( SP) »;SAVE CHRD FOR TYPEOUT 

(2486 :: TYPE THE LINE 

| 3487 003220 104402 TYPOS -:GO TYPE--OCTAL ASCII 

| TIS bosses bos eye + UPPRESS LEADING ZEROS 

| 140 posse D174 002169 V IDENT, (SP) - : SAVE Ioen FOR TYPEOUT 
143 00323¢ Loge T ay YPES-OrTAL ASCII 
1493 003222 BY 6 =: TYPE 6 DIGITS 

| 1494 moe .BYTE 0 ij SUPPRESS ADING ZEROS 
1495 1 001167 TYPE SCRLF ‘CARRIAGE RETURN AND LINE FEED 
18 ae cane 002160 IT §B1TOO, IDENT sUNIT HAVE A COPIER? 
1498 1 026257 TYPE OCOPYR ; YES- ISSUE COPIER MESSAGE 

,  J¥g9 0327 27 000002 O002160 20S: #£&BIT KBITOL,IDENT | ;UNIT HAVE A PRINTER? 

| Tebe : i eee harp ive PRINT 

«4853 Basso docos? boeess 218: GURY ORTLENT ‘ct CLEAR COUNT OF FATAL aNITS 

' 4603 000002 001754 ADD #2, LNEPT UPDATE LINE POIN 

«(1504 01 032322 032320 MOV § SABBUF iRESET THE REC. ete POINTER 

| 1505 00331 000100 176444 gl BRENA, IVICSR THE REC ENABLE FOR TESTS 

Pt a 903316 105737 OO2232 STB Cre scx TES CF TNG NODE 

4607 0903322 001 BEG 

«1508 003324 012737 001570 002230 MOV SINTAB, TSTPTR Aut IME INITIAL TEST NUMBER 
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s FHLSELASLLLHLESLESLELAAAELELALELLALELA RELA FL LELLLAFLAE LE FL FL ELEE 
ERREREEELEEEEEEEEEEEEEEREREEEEE SEE EEESE SESS AE EREAEELESERELEESES 


; THIS Is EST ISaee 14 oat SEQUENCES AND 
; INSURE LED f URING AN 
;ESC SEQUENCE vd pou A ESC Z TO FORCE A 
T THE TEST IS a aa TO 


;VT61 HE 
s INSURE THAT eset NT TESTS WILL NOT RESULT 
“HUNG” UNI A IS NOT EVALUATED. 
HEHE HEHEHE HHHBHEHHHHE HEE HHH EHHEHE HEE HEHEHE HEHE 


ASTRT: 
ee Ree ce Lenunnnecananssencssessent 4 
ls 


7 #1, STIMES *:D0 1 ITERATION 
MOV sESTST,SLPADR ::SET SCOPE LOOP ADDRESS 
ESTST: MOV #BEL.R sPOINT TO FIRST COMMAND 
BIC SRENA SVICSR AR REC. INT. ENABLE 
MOVE STSINM, TSTNM ‘OAD THE TEST NUMBER. 
CLR sc 
CLR RY 
mt pee ee TACK 
MOV iSeT we A ADDRESS 
ov Bo (R1}+, Rg ZERO, MUST XMIT TERMINATOR 
i be rex iat i TEST. 
CMPBséR3, 84 15. Conon OCTUALLY A DELIMITER? 
BLO DE IM G0 UPDA 110 
Q N A "10" - SPECIAL CA 
1S: TST Bu ae tr “FLAG nS fee ATING SEQ. 
BMT SEQY 24 S SE x} 
2: " MOV R3,ESSEQ 0 BE TESTED 
"MOV SSEQ, -(SP) ESSEQ ON STACK 
TST Ee Be ss SEQUENCE REQUIRE 
BEQ 3$ “ADDITIONAL ESC? 
MOV PRESC,-(SP) :*PUSH PRESC ON STACK 
3S: JSR RO, TESC :GO TRANSMIT THIS SEQUENCE. 
4S: TST -IN I/0 SEQUENCES? 
BPL 40S 
MOV #44. _DCOUNT S,SET UP TO DELAY 1+ SEC. 
JSR RO, DELAY 
BIT arAY Y,aVRBUF § ;CLEAR THE SILO 
40S: JSR RO, ZFLAG s ISSUE ESC 2 SEQUENCE-GET IDENT 
MOV (SP)+ -POP STACK INTO C 
CMPB FRO, AEN : WE POPPED THE IDENT? 
ali BNE *NO-ERROR CONDITION 
"MOV ee ::POP STACK INTO CHRD 


a ee 


——— TT A A 


a —— eomew ©) se Oe ee eee eee ee ee ee ~ 
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Sa TE ERROR POINTES 7. 





1565 003526 001375 BNE <4 
ie 003530 000722 BR ZERST GET NEXT COMMAND 
1 7? 900001 DELIM: CMPB 3,8! 
1363 Bese ae ate BEQ 1$ -FIRST DELIMITER - SET ESCN 
1571 903540 420327 pooco2 CMPR =s-«R}3, BITO! sSECOND DELIMITER - SET ESCO 
003544 O014i2 BEQ 2§ 
153 420327 000003 CHPB «R383 -THIRD DELIMITER - SET ESCP 
l 1413 BEQ 38 
000714 BR GCMD s INVALID CHARACTER - GET ANOTHER 
1 1 iS: MOV -SET FIRST DELIMITER FLAG. 
te5g BRsePB Bier Beebe oozeso | MOV EStn, PRESC SINSERT ESCN. 
1580 003570 000706 BR 
igs 00387¢ 013737 002110 o02250 2s: HOV ES CO, J¥PRESC s INSERT ESCO 
1585 903602 013737 002154 OO2esO0 2s: MOV ESCP,dsPRESC = INSERT ESCP 
158 10 000676 BR GCMD 
1588 002612 012704 177777 SPTN: MOV a1. R4 .SET FLAG INDICATING 1/0 
1589 003616 000673 BR MD : SEQUENCES. 
159] 005703 SEQ4: TST R3 «CHECK IF COMMAND = 0 
15a 001704 BEQ INXMT ‘YES, COMPLETE SEQUENCE ASSEMBLED 
1593 110222 MOVB 3, (Re)+ =NO - KEEP 
14 M1sb26 000593 SUAS RS oni ; POSITION HIGH ORDER BIT 
is Beste ApDEES GCAD GET ANOTHER BYTE 
1598 003634 004037 016654 TIERR: JSR RO, CLREG 
1599 003640 013737 OO22eSO 001124 PRESC.SGDDAT  ;AND INSERT IN ERROR 
1600 O03646 000337 001124 eal SHA SGDDAT ¥ *REASSEMBLE FAILING SEQUENCES 
= ie $BDDA 
1 bf 105737 Nees: TSTB Feee as} -IF UPPER BYTE IS CLEAR DO NOT SWAP 
1603 003664 001402 meee BEQ 1$ P - 
1605 eae: raret : 1S: PRROR — TSUE ERROR MESSAGE 
1606 74 bose37 0022 TNC FTLCNT INCREMENT FATAL XMIT COUNT. 
1607 002234 002236 CMP FTLCNT,ALWCNT :FATAL XMITS EXCEEDED ALLOWED? 
1698 003706 103003 BHIS  FTEXI x 
1609 003710 000704 BR ites THE STACK AND TRY ANOTHER COMMAND 
161 1 ESTEX: 
1611 003712 012637 o0e216 MOV (SP)+, CHRD :-POP STACK INTO CHRD 
1612 003716 777 OOO100 176036 FTEX1: BIS SRENA,AVICSR §$ ;SET THE REC. INT. ENABLE FOR TESTS 
1614 s LELLLAELAELLAALLLLALLE SS SHS LSE LA LERERERAALLLLLLELLELLLLAL LLL EE 
1615 : NTERING MAINTENANCE HODE CAUSES SOM AND 
1616 ;E0M TO BE APPE TO ALL TRANSHITS FROM V Tél UNDER TEST. 
16i IN NTENANCE IS ENTERED N AN ESCAPE 2 SEQUNECE 
1618 Ts ISSUED TO THE UNIT AND THE RESULTING TRANSHISSION 1s 
1613 CKED OF SOM/EOM. 
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TI.P1] ERROR POINTER TABLE 
ieee FSREREELSESASKFSESERSSSSRERESFLASASSLFAASEAASESSRELASEFESEFAFLSEFSS 
ige3s 003724 o00004 tSt2: SCoPE 
1624 003726 le? p9000S 901156 MOV aS, STIMES -:D0 S ITERATIONS 
bes le737 003742 OO:10s MOV SCKMNT,SLPADR ::SET SCOPE LOOP ADDRESS 
{P58 904037 16272 CKMNT: JSR *RESET THE UNIT AND SETMAINT. MODE. 
1£39 ll BAB acS 012312 MOVB Seon SF UP *XMIT THE START OF MESSAGE. 
1629 oc4 71 JSR 
} ! lée 012300 MOVE  £5¢2, dTBUFP 
1631 003766 004037 171 eects ISR ROXMITI cp -SEND AN IDENT REQUEST. 
a8 3777 
tB3s sO4006 hh9099 ars {83 JSR 3 Suit 
138 DO4008 iie77? 000004 o12254 OVE sen, aTELFP sXMIT END OF MESSAGE. 
ips i pena pasheg CLR DLAY :SET UP SOM DELAY OF 100M.S. 
1637 032737 O40000 O02260 15: BIT #RSOM, VSTAT ; RECEIVED THE START OF MESSAGE? 
i638 SOHO 901093 BNE CKEOM -YES-GO LOOK FOR EOM. 
l 10403¢ 902254 DEC DLAY “NO-RUN TIMEOUT DELAY 
1640 004036 001371 BNE 1§ ‘AND KEEP LOOKING. 
1642 OO4O4O 012701 o0006e CKEOM: MOV #50. .R1 -SET MAX DELAY FOR SOO M.S. 
ious 004044 032737 O20000 o02260 1S: BIT aRE OM, VSTAT sPEECI VED, END ao RECEIVED. 
teu Bpuped WEaee p90001 o20220 MOV #1, OCOUNT i ELAY FOR tomes 
1646 OO04062 004037 O201Sé JSR RO; DELAY 
Leu? ra nies DEC R :AND KEEP LOOKING. 
1638 ave 03 040000 o02260 108 IT 8RSOM, VSTAT -RECEIVED SOM? 
p51 alt: Gae7a7 oecooo 002260 ert OM, VSTAT REC VED FOR? 
1653 po4i 12 012737 1 001124 2 MOV SOL sve, BRROR OTH Ex XPECTED 
1654 Dov 120 013737 BpSeed 001126 MOV vert, SeD0aT + BND ACTUAL STAT 
1655 lee 104022 ERROR 
904130 ocode40 


EXMNT: NOP 
s LELLLLLELELLLELLLLELLLELLLELALSSLLELELELLLELELELELL LEAL LALLLELE 


1660 ET RECT CUSHOR AOORESSING The Ui Te Bese? AND THE CURSOR 
1661 : POSITION CERF 3 58 Be HOME . THE : IS THEN MOVED 
1662 :TO POSITION ROW 23 COLUMN 80 AND THE POSITION IS AGAIN 


VERIFIED. ERRORS ARE REPORTED IF THE POSITIONS ARE INCORRECT. 


PEP | s LELLLLLALLLALLLELLLLLLLLELELELELRAELLLLELALLALAELLLALLLRELALLLEE 
7 

ieee  SEFERE EEE SE EREEEESRLRERR ERE ELE EAE EERE EEE SERRE EE RETHEELE REE SSES 
669 904132 tsT3: SCOPE 

} 1 1 000005 001156 V eS, STIMES 3300, S ITERATIONS 

1671 004142 012737 OO4150 001106 MOV wCURSI,S$LPADR ;:SET SCOPE LOOP ADDRESS 

16723 1 1 CURS1: MOV TBBUE R Ri AS XMIT BUFFER POINTER. 

fe74 Bowies podoa? bf TOR at, RESET T UNIT AND HALT FOR HON. 

1675 OO4160 013721 OG2110 MOV oat :CLFT. RESET URSOR 

1676 004164 113721 002104 MOVB ‘POSITION, CUREBR. LEFT. 





03 


RT Ue 1O nee THE UNIT CAN ENTER LINEAR ADDRESSING 
; 


ae HARACTERS ARE 
HEN CURSOR POSITION IS READ AND 
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O2VTI. P11 ERROR POINTER TABLE 
1677 O04170 012737 000003 016270 MUV 83, XMCNT *XMIT 2 BYTES 
3s 17% 004037 O16676 JSR RO, XIREC *XMIT AND RECEIVE. 
l 08 li ERROR i .T ISSION CAUSED VT61 70 FAIL/HANG 
1 EXIT BOF 
l 10 91 031120 10$: MOV RCRLB,R1 - GE CURRENT CURSOR POSITION. 
1684 14 ie 002210 cH RI, CUHME “C OR REALL Y HOME? 
BSG Foy alla wee 
ie3e l : J , CURER -Go L Poste E 
i630 13701 016262 1S: MOV TBBUF RI sLORD XMIT BUFFER WITH 
169 13721 74 MOV BCRAD (R1)+ 
tose 13721 MOV 3¢79,(R1)+  ;CURSOR TO ROW 23,COL.79 
6 13721 002110 MOV ESCOI, (R1)+4 “READ CURSOR POSITION 
£4 254 Ol 104 MOV UR. (R1)+ :IT CURSOR RIGHT 
635 1 016270 MOV 87, XMCNT sxMTT BYTES. 
36 266 166 JSR RO *XMIT AND RECEIVE 
p bo0"Ge BR 20$ ‘NORMAL EXIT. 
i ERROR 11 ‘TRANSMISSION CAUSED VT61 TO FAIL/HANG 
bove76 1 BR 2g ‘EXIT TEST. 
| 12701 031120 20$: MOV #RCRLB, RI 
| 002076 MP R23C79, (R1) : CHECK POSITION TO LOWER RT. 
BS eee ae Se 
| Basis Ot ar4 See loam csp, VIL FILING MESOREE, 
| 708 rate oO037 Bi 5aq8 JSR RO CURER $F ORB AND I CURSOR ERROR . 
: ae : PSPETTETEST TOT TTT TTT TTT TTT TTT TTT TTT TTT TT TTT TTT TTT TTT TTT TTT TTT TT 
| 





sLAST XMIY CAUSED UNIT TO HANG. 
sEXIT TEST 
AT ROWL,COL. 0? 


710 
71 -T COL.0. 
7g Siti ititiititiiitiititiitiiittiittititiitiiiiiiittitt ttt 
714 UHBIHGHHHEHHHEHEHEHBHHEHGHEHEHHEEHEB HEHEHE HEHEHE EEE 
«E215 004326 poonos TST4: SCOPE 
| 71 1 O00000S 001156 MOV ;;D0 S ITERATIONS 
' a tA 004336 912737 OO43S44 001106 MOV ;;S5ET SCOPE LOOP ADDRESS 
| ay Ct CKLIN: JSR ;sRESET THE UNIT-SET MAINT AND LINEAR MODES 
' 13701 Ol , MOV 
7el l j MOV 
| 723 ras . ob sLOAD XMIT BUFFER WITH 80 CHAR AND 
| 104 MOV sREAD CURSOR POSINION. 
725 ] 016270 MOV 
: ae 6676 J sXMIT THE BUFFER. 
| 728 
723 
730 


: YES-EXIT 


0 b= B= bs be = b= he be Bae Bn Fe Be 2 Fw be Bo ob = Fe 2 2 Bs FF Fs 2h -0 & 2 b= Oe b= Hs b= B22 Fo he BO HO 


“IN 
te 
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ino 
INXT 
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CO, SGDDAT 


| 

1 
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002170 Ol133e 15: CMP 1 
002110 O011e4 E 
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~) 


124 SAB $GDDAT oS | 
Bi 001126 HOV CT,SBDDAT  ; ISSUE ES¢ SEQUENCE AND CURSOR 


on | 


Se 


Pee 


wirue- 


aeAE 





eer 


ue 
t= 
Tw 


oo @Gor~ 


Poh 


PRES RSSERPANSR urate ca suniuninria anes 
PP 


GEEE COIECEEEEE SEs patennaeon SnD 


“J 


0 6-20 & b= b= § — & $B = Be > b= 6 - b=, — 0 = Ob 0 b= 0 B ¢ = = = & =< B= — 0 b= 6 0 9 B+ &-< & © = = p= ho = <= Bs 9 Bo pp = 9 9 


“I~ 
& 


eT -(SP) ;s;PUSH ROICCO ON STACK 
JSR RO, CURER 
LINXT: NOP 


ctatatmiatagn ah jh beh tht pbb Atte tiated tlpieh ts Jp bteleintet + jpeeteariaatate 


9 OPERATION OF X XON/X 
;FROM VT61. XOFF IS FORCED BY TRANSMITTING G LINE 23 WHILE SIMUL- 
fie Y FI ING THE THE : LO WITH DATA. AFTE 

‘THE X T wal TS FOR TRANSMIT TO FINISH AND 

* INSURES XON OCCURS BEF NE MAX. TRANSFER TIME HAS ELAPSED 


Seanad st,  eandadsns aan saat to ae 





wag 77 enagegeati anger mo pee mma maNte «eee 
001156 "MOV #10, STIMES ;;D0_10 ITERATIONS 
601106 MOV eBASC3,SLPACR ::SET SCOPE LOOP ADDRESS 
BASC3: MOV TBBUF , RI -Rl = 1ST XMIT BUFFER ADDRESS. 
002262 HOV SET XMIT TO SOM- DATA -EOM. 
ISR -RESET THE UNIT AND WAIT FOR XON. 
NOV sCURSOR TO ROW 23, COL.O 
HOV sTRANSMIT THE LINE. 
JSR “40 CHAR. OF NTING CHAR. 
0 MOV SET UP To xnT eMTT BYTES 
175176 BIS : TRANSMIT 
MOV : MAXIMUM DEL AYE ESUAL 400 M.S. 
020220 2 MOV 
JSR ‘DELAY FOR 10 MILLISEC. 
002260 BIT : CHECK 
BNE 3$ ; FOUND T exIT THIS SECTION. 
DE R :DELA 
B *NO-KEEP L Tk “FOR XOFF . 
ERROR ile ‘GENERAL VT61l FAILURE MESSAGE 
MOV #100000,-(SP) ;:PUSH #1 ON STACK 
Me JSR RO, CKSFT : 60 REPORT ERROR 
. MOV #XMDNE. -(SP) rl BXMONE ON STACK 
MOV #50. .-(SP) - ON STACK 
ISR RO, WIBGND 
BR ExtT3 TIMEQUT-EXIT TEST. 
000021 CMPB  SABUFP, 8XON CEIVED A XON? 
BEQ EXIT3 sme cely ERROR-EXIT 
ERROR 12 ;GENERAL VT61 FAILURE MESSAGE 
HOV s000001,-(SP) ;;PUSH #000001 ON STACK 
EXIT3: JSR RESPTR pom INTERRUPT POINTERS. 


EE ET OS 





JOS 
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i ERROR POINTER rieLe 


st 
34 
= 


aeee ee OUTINE TO VERIFY OPERATION OF XOFF AND XON 10 THE VIG1. 


fib EER ME bi A SERIES OF XOFF AND 


XOFF DOE ee "910° 0 OR XON RESTART 
OTRANSHISSTON. Test IS ENDED S SENSED. 
sexxsaned ne OMSRISSION. TEST IS EoGeD wen Eom 15 seneey 


Biss 


‘ 
2 





jREAREARTROUTINE TO TEST VT61 RAM AND THE COMMUNICATION PATHS, 


saHIs ROUTINE ISSUES A SERIES OF PATTERNS(77/ 109 100777 
7125, INCREMENTING REV VIDEO INCREMENTING) TO THE VT61. 

‘THE SCREEN IS THEN TRANSMITTED TO THE HOST AND 

: ITERATION RECEIVED DATA IS CHECKED AND ALL ERRORS( INCLUDING 


} 
1 
1 
1 
1 
1 
ira 
3 ne ee 
1738 biera7 990001 001156 MOV #1,$TIMES +100 1 ITERATION 
189 12737 7l2 001106 MOV #ONOF61,SLPADR ;:SET SCOPE LOOP ADDRESS 
Lene 272 ONOFSi: JSR RO, RESETV -PESET THE UNIT AND WAIT FOR XON. 
l 002260 BIC 870577 VSTAT -CLEAR THE FLAGS 
1804 1 MOV -{sp ; ;PUSH ZERO ON STACK 
1805 137% O0211 MOV cara, rep) XMTAL ON STACK 
1808 MOV ESCO, —(SP) : PUSH ESCO ON STACK 
l 14 JSR 
1808 12737 10 020220 ONOFLP: MOV #10, DCOUNT ALLOW 100 M.S. FOR OPERATION 
1 156 JSR RO Y :TO BEGIN. 
1810 3 011302 MOVE  #XOFF gTBUFP 
18] has097 171 JSR RO. XMiTl :SEND A XOFF TO VT61. 
181 012704 36 MOV . RY 
| 181 013708 320 OFFLP: MOV  ABLFP. RS ALLOW 300M.S. FOR XMIT TO CEASE 
1814 1 1 020220 MOV #1, DCOUNT 
1815 020156 JSR RO: DELAY 
1816 CMP ABLIFP, 
| 181 14 BEQ ONOFR sXMIT STOPPED-GO RESTART IT. 
: Bis 1364 BNE OFFLP ;COUNTER NO EQUAL 300 MS-LOOP 
1820 bosde4 13737 002260 001120 MOV VSTAT, SGDADR UNIT DID NOT RESPOND TO XOFF 
| is 104015 ERROR 15 TSSUE ERROR 
oF N0SO34 112777 000021 011224 ONOFA: MOVB $ #XON,aTBUFP 
| 1824 017152 JSR RO. XMITI sSEND A XON TO THE VT61. 
| 1885 1 000036 MOV #30. RY -SET UP FOR 300MS DELAY. 
| Bee 002260 ONLP: 8BIT #REOM, VSTAT 3 EON RECEIVED? 
 s 1 BNE ONOF XT - YES-EXIT 
| 1828" 1 032320 MOV ARS 
| 1656 Atay Os ve —— TSR RO’ DELAY ALLOW 300 MS FOR XMIT TO RESTART 
| teat nates BS 2428 CMP ABLIFP. RS , 
| 05 104 13 BNE ONOF LP -IT RESTARTED-GO STOP IT. 
1834 0511 001360 BNE ONLP :NOT YET 300 MS LOOP. 
1835 lle 013737 002260 001120 MOV VSTAT,SGDADR § ;XMIT DIT NOT RESTART-ISSUE 
1836 005120 104016 ERROR 16 “ERROR AND EXIT 
1827 O00Si22 00240 ONOFXT: NOP 
1838 
146 
1 
1 
1 
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= 
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D2VTI.P1i ERROR POINTER TABLE 
j TRANSMISSION) ARE REPORTED. 
i HAHEI AHHH HHH G HHH HHH HHHES HEHEHE HEHEHE HEHEHE OH 
1848s © SLERERESKESFLKESLSFLASAARAREARALSELKAFAEREALALFEARALAAALELLAALLALLAEES 
ie Be reise 
l 5051 1 1 001156 #1 TIMES 3300, 1 ITERATION 
185 005134 912737 OOS142 001156 MOV eMEM1, SL SET SCOPE LOOP ADDRESS 
l p95 016272 MEM1: JSR Pypeies ‘RESET THE UNIT AND WAIT FOR XON. 
i : 6 MEMA at MPATT(RS). 4 DRO PATTERN 70 BE Tense TTED 
ty & 
iBee pet ata pisses JSR RESPTR’ gRESET PO 
1 005160 42737 77577 O0e260 BIC 877577, VSTAT aR ALL ye BUT XOFF XOFF AND XMKIL 
1858 us 166 011972 MOVB aT BUF SENET START OF MESSAGE 
1 5051 hoa057 171 J RO, XMITI 
1BET BA MEMB bee sTOTCH, Re shorR NEN on cBUNT 
i tek nk Bi ifs er or 
1864 10 004037 128: . JSR RO, PATGN :NO-GENERATE E NEXT ree TO XMIT. 
1 4 110477 Ol 1046 MOVB RY. aTBUFP sLORD THE 
i nae? 334 002236 sap FT! ANT BLWCN T ie "FBTAL ERE “COUNT? 
{Bee Bpesse eee ae MB meee HER  THANCHISSION REQUIRED. 
1869 000137 7% JMP HENXT 
1 1 011020 10$: # MOYB OM. aTBUFP VES 60 OND OF OF Teen 
1871 09037 017152 JSR 0, XMIT1 
i872 005252 004037 017262 JSR RESPTR sRESET INTERRUPT POINTERS. 
| 1874 13701 016262 MOV 1 ‘LOAD XMIT BUFFER WITH 
1875 13721 002166 MOV ESCN, (R1)+ 
187 13721 1 MOV HOM: (R1)+ sCURSOR HOME 
ae 13721 O0e1 MOV esczi (R1)+ “ESCAPE Z 
| 1878 13721 O0e11 MOV SCO. (R134 
1879 13721 O0elle MOV XMTAL, (R1) - TRANSMIT ALL 
(B81 DOSsie O12737 009010 ClE270 NOY SG eXRCNT, ©—»s ESET’ UP TO'XMIT 8 BYTES 
{BED ieee Bsa BYELOE JSR RO: KMREC -XMIT al FOR REC. EOM 
| 4883 005324 o0040e2 BR 1$ NORM, EXIT 
| 1684 005326 A041 ERROR 11 T TRANSMIT CAUSC? VT61 TO HANG 
1885 BR MEMXT XIT TEST 
1886 005332 042737 077577 O02260 1S: BIC 877577, VSTAT L FLAGS BUT XOFF AND XMKIL 
1887 b= 340 es CLR : CLEAR RECEIVE COUNTER. 
ies Bese Bie Beate mY ewsescdSts SPP UEMRO rons 
| 1850 13701 015754 a HOY REBUF , Rl -SET UP RECEIVE POINTER 
| 1892 Bosses o13797 BT ESEM 015760 MOV BBUF , RBUF eee eeteve POthtER 
ios 023701 015760 1S: CMP RBUFP, RI ;RECEIVED A CHAR? 
' 1894 005374 001013 BNE MEMD -YES-GO CHECK IT. 
| 1898S 005376 022737 O20000 002260 BIT #REOM, VSTAT “HAVE WE RECEIVED EOM? 
| 189 005404 001033 BNE CKDAT -YES, GO CHECK FOR DATA ERRORS 
| 4g97 DOSHOE 005337 o02es4 DEC DLAY RUN T LAY. 
| 1898 ule 001366 BNE 13 <NOT EXPIRED-KEEP LOOKING. 
| 1699 OO5414 005237 002234 INC FTLCNT TRANSMISSION FAILED-INCR. FATAL COUNT 
j 
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RROR 
BR bon 
MEMD: Ne Re Bins eer IN. INCREMENT COUNTER pp 
CHS #10,RS s CHECKING ev NBEO SBT , 
I ' 1T07,R4 “Fone Ot iy 
1$: ere (RI), R4 es RCE 
CNP R>. #TOTCH sCOMPARING LAST CHAR? 
BEQ MEMC *YES-NEVER COUNT AS A ERROR. 
CMP R3,#TCRLB+3S50  ;STORED 20 ERRORS? 
BHI -YES-STORE NO MORE 
MO 4. (R3)+ ;STORE THE GOOD DA 
MOVB FAL) (R3)+ ‘STORE THE BAD DATA. 
HOV (R3)+ -STORE THE RECEIVE COUNT. 
CKDAT: CHP #TCRLB+300,R3 
MOV #TCRLB+300,R1  ;LOAD FIRST ERROR ADDRESS 
1S: JSR RO fe -CLEAR ERROR REGISTERS 
MO (R eb DATA. 
MO (R *L BUFFER 
MOV (RI) “LOAD RECEIVE COUNT 
ERROR 4 ‘ISSUE DATA ERROR MESSAGE. 
CMP R1,R3 ISSUED ALL ERRORS? 
BLO 1$ : NO-CONT INUE 
CKMEM: CMP Re, sTOTCH ‘DID WE XFER 1920 TIMES? 
REQ 1$ -YES - GO CHECK STATUS 


r ~*~ 


| 
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! 
| 
| 
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. DZVTJ.Pll 


ERROR POINTER TABLE 


Pe Ra ee ae a cd 


ISSUE COLINT ERROR. 
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OZVTJ.P1i ERROR POINTER TABLE 


1$: 
SOB ues nem yey) eo st 


noe 2 ceren PATTERN POINTER 
ag ferct i DEROERD oF TERY exrr, 

BPL es ;NOT INCRMENTING PATTERN. 
000010 gee §40,RS ser REVERSE VIDEO? 


1 pesos MOV SSETREV,R3 ; YES-ENT 


a 

iy | 

poree> BACTeS ag, Jesh FO, Load ANG REISE “INCRETENT NG PATTERN. 
te 

= 


o~ po 





o00200 PATGN: BIC #200, R4 sCLEAR REV. VIDEO BIT IF SET. 
TST RY ‘CHECK RY FOR PATTERN 
BMI 1$ -IF MINUS, DO INCREMENTING. 
SWAB ORY ‘OTHERWISE SWAP BYTES AND 


RO ;EXIT. 
1$: INCB = RY ;ADD ONE TO INCREMENTING 
120427 000177 CMPB) = =s« R44, #177 SHAVE WE EXCEEDED LIMIT 


: 102 BLO <NO, EXIT 
16 OOSéSE MOV MPATT(RS) RY ies RESET PATTERN AND 
000200 2s: RIS RO XIT. 





1 : 160040 INCREMENTING 
OOSbEB 00040 - WORD 100040 area INCREMENT ING-REV. VIDEO. 
_ —_ 6 PRUENCE TO ENTER REVERSE V 
005672 033 117 112 SETREV: ‘BYTE .ESC,.0,.EEMP,O 
005676 900240 MEMXT: NOP 
j SERSRSHERERSSEERAESENSNEESSRRSSESESESRE ERTS RESO SESNS; xa khRREK 
; ROUTINE TO TEST THE ABILITY OF THE VT61 TO CALCULA 


jAND T RANSMIT CHECKSUMS OF BOTH TRANSMITTED AND RECEIVED 
fate ave Fy ee A, es A A FULL Pepe AN ESCAPE SEQUENCE | 


ate THE. Agee fer. aos one” 


ULATED. SUBTES PE OF CHECK ON 
ipa VT61 TRANS T CHECKSUM, UTILIZING THE THE DATA SENT TO THE VT61 
IN SUBTEST A,OURING A FULL SCREEN TRANSMIT. 
5 EERE ERAA KEE ERR E EERE EERE EE EEE EERE R ELE EERE A KEE EERE EEE REEL ERE 


a ee es 


S TEAESEISEEIIVoes tenet teamed parce 
5 
SEs 
a 
ee 
z 
ss 
ian 


b— 6-4 > + & b— b-+ 8 & + & = B+ OB H+ = & ~~ = FO bh + Bb Bb = Os bh = bs OF & OH +H 2m 2-H 2H —- & < HH 2 & 2 HH 


005700 OL2004 TST10: SC 
005702 012737 o00003 001156 MOV #3, STIMES ::00 3 ITERATIONS 
28 005710 012737 005716 001106 MOV WCKSUMA,SLPADR :;SET SCOPE LOOP ADDRESS 


BAe | hag oad cece 


| Sess -—-— cee ~~ = 
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3? 02627 
Se he 


1091 
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002260 
016270 
173714 
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“KSuMA: JSR RO, RESETY 
TSR RO RESPTR 
MOV 01601, BLKM 
MOV eT SUA R3 
JSR RO LOXMiT 
BIC 879577, VSTAT 
ny TOF A 
JSR a BLOIN 
MOVB  ESCN, (R1)+ 
MOVE CHOM, (R1)¢ 
MOV ESCO, (R1}¢ 
MOY ESCO41, (RL)+ 
MOVS §_ TXRCK, | 
CLR RY 
MOV 8EOM.RS 
JSR RO. CALCK 
81S eCKSUM, VSTAT 
MOV 8320. , XMCNT 
BIS 8XENA, aVICSR 
MOV SREOM, -(SP) 
MOV #10. .-(SP) 
JSR RO. ut 
PR CKEXT 
See CKSUMB’ 
MOVE RO, CURE 
MOVB @RBBLF, 
ERROR 13 
MOV #60001,-(SP) 
- JSR RO, CKSFT 
CKSUMB: BIC 877577, VSTAT 
BIS #TXSUM, VSTAT 
MOV 81001, BLKM 
MOV TBBUF RI 
JSR 
BYTE 
MOV #9. . XMCNT 
BIS BXENA, IVICSR 
MOV BXMONE . - (SP 
MOV 82, -(SP) 
JSR RO. WTBGND 
gF CKEXT 
CKSRC: CLR Y 
MOV ABUFP, Re 
1S: CMP ABUFP, Re 
BNE 2s 
DEC DLAY 
BNE 
INC FTLCNT 





sRESET ia UNIT AND WAIT FOR ZN. 
sRESET INTERRUPT POINTERS 
;SET XMIT_TO SOM- DATA -ECM 


-DIS. RECT. MODE AND CLEAR CHECKSUM 


;CLEAR ALL FLAGS BUT XOFF mND XMKIL 
;LOAD XMIT BUFFER WITH 


:314 INCREMENTING CHAR. 
-CURSOR HOME 

- TRANSMIT RECEIVER CHECKSUM. 
“CLEAR CHECKSUM REGISTER 
PRELOAD CHE CKSUR REG. WITH 
CKSUM CALCULATIONS. 







CULATED CHECKSUM 
CEIVER CHECKSUM 


: 860001 ON STACK 

: ERROR. | 
;CLEAR ALL FLAGS BUT XOFF AND XMKIL 
;CLEAR CHECKSUM REGISTER 


sSET UP FOR XMIT CHECKSUM GENERATION. 
;SET XMIT TO SOM- DATA -EOM. 


LOAD THE BUFFER WITH: 


RO,L . 
-E5C,.0, .CLTCK, .ESC,.0,.XMTAL, .ESC, .0,.TXTCK,O 


*RE 

»RECE A CHAR’ 

iVESe S Bue CK IT. 

IME OUT DELAY. 

sTIMED OUT-INCREMENT FATAL XMIT COUNT 
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MAINDEC-1 
OZVTJ.P1l 
2 uy ROR Laws ISSUE HUNG MESSAGE AND EXIT 
, g B ieer7? 000004 O24034 2S: cnPB aE ON, QRBUFP sRECEIVED EOM CHAR? 
e050 eS 920000 002260 BIC #REOM, VSTAT CLEAR THE EOM FLAG 
l 002260 BY @REOM, VSTAT "NOW WAIT FOR LAST EOM FLAG 
2052 1774 S60 §sséiw=6 “FROM XMIT TRANSMITTER CHECKSUM, 
20477 07444 CMPB OséR4. OR'BBUF -COMPARE 61 To HOST CHECKSUM 
19 el Q KEXT ‘EQUAL - EXIT TEST 
1 O16654 SR 9, CLREG 
16 11 O01 124 Nove ‘R4' SGDDAT :L 980 THE HOST ALCULATED CHECKSUM 
eee 007426 901126 MOVE . @RBBUF, $BDDAT RANSMITTED CHECKSUM 
104014 ERROR 14 Scrat bY ArT CHECKSUM ERROR 
l 069001 MOV 860001,-(SP) | ;:PUSH #60001 ON STACK 
016Sle JSR RO. CKSFT  AWECK FOR STATUS ERROR 
1 BR CKEXT 
Spe 006344 033 117 103 ITSUMA: .BYTE .ESC,.0,..RECT,.ESC,.0, CLRCK,0,0 
2064 006347 O33 117 133 
S05 006352 000 000 
2067 006354 004027 O:7262 CKEXT: JSR RO, RESPTR , 
oes s LELERESLELLELELELLLLLELELLLLELLELEFELELELELELELELLELALELELELEES 
| por eROUTINE TO I BASIC CURSOR COMMANDS 
2971 “RESULT IN CORRECT CURSOR 
| 207¢ sARE ISSUED IN THE : ino Cake CURSOR RIGHT 
: See a7 ie cURsOR POSItTOn git is 13 ISSUED UE BFTER’E eine REM 
| SHOE oe : END BN -_ 
| pe 1 
pe. ene preggapgagase eres 8 agen emanates 
| 006360 o00004 TST11: SCOPE 
| 2081 006 362 012737 900005 001156 MOV a5, STIMES D0 5 ITERATIONS 
| e8e | 012737 006376 001106 MOV aCURSIA,SLPADR ::SET SCOPE LOOF ADDRESS 
| 2084 006376 013701 016262 CURSIA: MOV Ri sLOAD XMIT BUFFER ADDRESS 
| pO0BS O06402 004037 016272 JSR RO RESE V “RESET THE UNIT AND WAIT FOR XON. 
| e086 DON? 020746 JSR LOBUF LOAD THE ITH: 
| C0E41 103 033 .BYTE .E5C,.CRT, .ESC, b -ROCUR, .ESC, .CDWN, .ESC 
| coe 00641 117 131 033 
006420 102 033 
2096 DObYe2 117 131 033 .BYTE .0,.RDCUR,.ESC,.CLFT,.ESC,.0, .RDCUR 
2081 3 10s 033 117 
| e053 3 033 104 033 .BYTE .€SC,.CUP,.ESC,.0,.RDCUR, .BEL,O 
: 11 131 007 
| 2095 7 000 
| 2096 12737 000024 016270 MOV sSET TO XMIT 20 CHARACTERS 
: 097 1 017144 MOV saoReC TTT jE! RECEIVE, TERATION TO 4 
| j 017146 MOV meet WOSTOR: SET UP TORAGE POINTER 
2099 16676 JSR RO. XMREC -XMIT UENO UR WAIT FOR REC. DONE 
 p100 OO6466 o00402 11$ NORMAL EXIT 
| g101 O06470 04011 ERROR 11 sLAST XMIT CAUSED VT61 TO HANG. 
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OZVTJ.P1 ERROR POINTER TABLE . 
l 472 | Bk CURIXT 
ioe BREUSS Bisser coesso 118: pov SeOnUmP a Rl=s00 =3006 SPOSITION TABLE 
1p Ol 3708 031° 720 MOV sTCRL8+100,Re TUAL aiReOR POSITION 
! 902 MOV #CRT.R3 RS CURSOR COMMAND TABLE 
site pnesin 21112 123: CMP (R1), (R2) -COMPARE GOOD TO ACTUAL 
108 o06S12 901415 SEQ 2s OK=-GO UPDATE POINTERS. 
109 514 113737 002166 001125 MOVB ESC oN, SGDNAT+1 
2110 411332 1124 MOVB = (R3) . SGDDAT sLOAD COMMAND IN ESC ERROR 
elll 1le6 CLR SBDDAT 
elle O065se 10400 ERROR 1 sAND ISSUE IT 
e113 Dob5 34 11237 031120 MOV (Rd), RCRLB ; LOAD CURSOR POSITION 
2114 11146 MOV (Ri) '-(SB) “PUSH (R1) ON STACK 
Si1S Ooese OOM037 017342 JSR —- RO, CURER {LOAD ANDI RROR MESSAGE 
ells DObS¥6 022! 2s: CMP (R1)+, (R2)4 : INCREMENT SST TION PO POINTERS: 
211 O22 002026 CMP (R3)+,CUP “CHECK FOR COMMAND TERM. ( 
| 2118 606554 001355 BNE 12$ -NOT AT FERNINATOR-COMPARE JAGAIN 
e113 006556 000404 SR CURIXT EXIT TEST 
2121 
Plee OOESED Oe0440 GDCURP: .WORD 20440 ‘ROW O, COL. 1 
2les O06562 Oe044] -WORD 2044] ‘ROW 1, COL. 1 
2124 OO6564 O20041 ; e004 “ROW 1. COL. O 
| ples DOESEE g20940 “WORD -ROW O, COL. O 
eieb 76 «900240 CURIXT: NOP 
| eles EE ER TOUTING TO INGURE THAT READ CHARACTER AT CURSOR 
| gies THAT READ CHARACTER A 
a : FUNC IONS CORRECTLY. COMMAND QUENCE IS: RESET, A, CURSOR 
| pla ‘LEFT, READ CHARACTER A . 
| et3e RE T READ IS NO “pe 
| sis cerunvaniGtcSIROR 1S REPORTED, IF THE CAST READ IS NOT aN vars 
size SHER EESEESESERSREFSRPRSEHETLERSE SESE ESSER EEF EERSFS ES RSESEGSEEPERE HERE 
| e136 006572 900004 tSTl2: SCOPE 
| e137 006574 012737 000005 001156 MOV a5 TINE °:D0 5 o} TERATIONS 
| e138 006602 012737 006610 001106 MOV B SLPAOR : -SET LOOP ADDRESS 
: 140 006610 013701 Olb262 CURSIB: MOV TBBUF Rl 
| 2141 906614 Baas 016272 JSR RO, RESETV sRESET THE UNIT AND WAIT FOR XON. 
: elie 006620 d1e7el 00010} MOV #101, (R1)+ 7° 
ply Dobbe4 113721 166 ESCN’ (R1)+ 
eid 11372 MOVB  CLFT.(RI)+ -CURSOR LEFT 
eles bbb 34 13721 119 MOV ECOL, (R1)+ 
2146 O17 1 MOV CUCH; (R1) - TRANSMIT CH. AT CURSOR 
2147 OO6E44 O1 000006 016270 MOV #6, XNCNT ;SET UP TO XMIT 6 CHARACTERS 
| piwe 016676 JSR RO: XMREC *XMIT STRING AND WAIT FOR EOM. 
| e143 BR 10$ : NORMAL i 
piso A401 RROR 11 “LAST XMIT CAUSED VT61 TO HANG/FAIL 
| psi BR sEXIT TEST 
/ piso 007064 O00101 10S: ##§ CMPB SP OBUF #101 HARACTER READ=A 
e153 008 4 BEQ TES NEX TEST 
e154 m4 Ol 092119 001124 MOV SCOI, SGDDAT 
pss 0011 SWAB sREASSEMBLE ESC DATA 
p15 006 005037 001126 CLR SBDDAT 
| 2 002120 001127 MOVB § TCUCH,SBDDAT+1 ;LOAD FAILING ESC SEQUENCE 


g 
e 
® 
& 
4 


=e = a as a a oS 
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sAND ISSUE IT 
0, CLREG 
#191, SGDDAT sLOAD GOOD CH. AND CH. 
, SBDDAT 


ies 
dREB 
4 ;READ AND ISSUE THEM. 


an 
ik He a 
006744 


RRROR 
S4 SR 
01 HIM 
e& MOV 
ERROR 


es: NOP sEND OF TEST 

Se eer tii ititiitiitiiietitririetietiicesy 
: I VERIFY OPERATION OF REPLACE ae INSERT MODE. 
; IN heey ROW 0 i? WRITTEN TO 80 INCREMENTING CHAR. 
;ON THE PASS(REPLACE MODE) A CHARACTER IS REPLACED 


> +> 6 <6 ~—p§-< 9-< 6 - p> ~ 


rururururururutury 


MRINDEC-11-D2VTJ-A MACY11 e7 (732) 
OZVTJ.Pli ERROR POINTER TABLE 


63 
45 
a3 
67 
= T 
e165 -AT H THE CHAR. AT ROWO.COL.0(172) AND ROW1.COLO(NULL) 
176 “ARE VERIFIED. ON THE SECOND PAS INSERT MODE IS ENTERED 
et? -AND THE RESULTING INSERTION (AT HOME ) 1S VERIFIED. ROWO, COLO 
5154 er itrittiiittittiiitiiitiiitiitittitittttitiiititiitt iti tt iit 
217s SESFSHEEEEPELEEELESELERERS SHE LELSESEELESEAVHEGEE HELE EAS EE EES HEE SEES 
2176 DOE 76 tST13: SCOPE 
1 Broa? oco00s 001156 MOV eS, STIMES ::D0 5 ITERATIONS 
2178 006756 012737 006764 601106 MOV SINRPL,SLPADR ::SET SCOPE LOOP ADDRESS 
l INRPL: JSR RO TV -RESET THE UNIT 
| SIBY Bpessa Brave, bleses HOY TBBUF TR 
| elB2 006774 005201 INC Ri! sLEAVE ROOM IN BUFFER FOR SOM. 
2183 006776 012703 000120 MOV #80. .R3 “CREATE A LINE OF 80 INCREMENTING 
| e184 Sore ome 020222 JSR RO, BLDINC ‘CHAR. ON THE SCREEN. 
21k 1 O} 01 MOV TBBUF RS 
| 2187 14 pisses JSR RO, LOXMIT 
| 2188 007020 o0s00s CLR sUSE RS AS TEST INDEXER. 
| 2189 007022 012737 017144 INAG: MOV #2, RECITT SET UP TO RECEIVE 2 CHAR. 
| g130 007030 Ol 017150 MOV sTCRL8+200, BYSTOR -SET UP STORAGE AREA. 
| p19] ] 16262 MOV TBBUF RI 
| e192 007042 020746 JSR RO, LOBUF -LOAD THE BUFFER WITH: 
| 3133 007046 110 172 BYTE .ESC,.CHOM,172,.ESC,.CHOM, .ESC,.0,.TCUCH 
| 194 007051 110 0633 
2195 907054 117 127 
| sige 007056 033 19e 033 -BYTE .ESC,.CDWN,.ESC,.0,.TCUCH,O 
| e138 007064 Ol poobis 016270 HOV #13, XNCNT -SET UP TO XMIT 13 CAHR. 
| 108 1040 ERROR i$ OCT NTT CAUSED UNIT TO HANG 
e200 Bribe ike BR TNRXT ETT TEST. 
| 007104 B57 007162 O22020 15: CHP TOATACRS), TCRLB+CO00 pS ONPARE RE Soop TO REC.DATA. 
| eet at ot p07! 11 MOV UNCT(RS) . SBDDAT : 
| 1 19337 164 O01] MOV ESCP, SGDDAT *LOAD ESCAPE SEQ. ERROR. 
| < pies cos 768 es fer (RS)+ INCREMENT XER 
| este ge 000004 CMP RS, #4 :THRU WITH pet ; 
| 210 071 1414 BEQ = INAXT XIT. 
| iy 142 Oo! 007 166 MOV BENSRT,R3 *NO-SECOND PASS- ENTER 
| e212 0071 17222 JSR  —- RO, LDXMIT ;INSERT MODE AND DO AGAIN. 
| 2213 007182 000723 BR INAG 








Sta aaah MACY11 e7(732) 25-SEP-76 09:05 PAGE 44 
OZVTJ.P ERROR POINTER TABLE 


7154 0001 000111 177777 TFUNCT: .WOR iERPL GINS] -j 
7} 172 TDATA: .BYTE 172,0,172, 160 
7166 120 111 ENSRT: .BYTE .ESC,.P,.EINST,O 
172 900240 INRXT: NOP 


epee ee ong peo a ee 
eS, VT61 ont SCROLL_IF AL 
NTRY FROM ROWe3, COL. 79. 


fk Geet ite 
N TA ROU 0 IS INTIIALLY WRITTEN TO A O AND ROW | 
Ad . AFTER Tce OF A LINE FEED( aN RESULTING SCROLL) 


erate 
+- > »—- > 
anaui 
BSss 
o— & -6-- 
“oo 
o~ 

~~ 
ao 





; POSITION Ts” READ AND SHOULD BE ROW23,COL.O0. THE 
TER IS VERIFIED TO 
PERT eT Terertereerrettetirrrereritrtrrttttt tert t ttt t ttt tt ret te 


hf aietet-+-+-+-+ iether 
007174 900004 TST14: SCOPE 
007176 012737 oO0000S 001156 MOV TIMES D0 S ITERATIONS 
007204 012727 007212 001106 MOV ScKECRA. SLPADR ::SET SCOPE LOOP ADDRESS 
007212 004037 016272 CKSCRA: JSR RESETV sRESET THE UNIT. 
007216 013701 Olse6e MOV FBOUE Ri 
5o4037 020746 JSR RO, LOBLF LOAD THE XMIT BUFFER WITH: 
060 033 102 -BYTE 60,.ESC,.CDWN, eke. .CLFT,61,.ESC,.Y, .Red, .CO0 
007231 033 104 061 
033 131 067 
0 033 110 -BYTE .LNFED,.ESC,.CHOM, .ESC,.0,.TCUCH, .BEL,O 
Oo oo 
0127327 O0Ul20 016270 MOV «#16. .XMCNT .SET UP TO XMIT 16 BYTES. 
D003? 016576 JSR RO, XMREC 
BR 1$ sNORMAL EXIT 
04011 ERROR i LAST xT CAUSED UNIT TO HANG. 
FF oxo comm: is: fe Bho: Bar ne 8 


-~ 
~ 
To 
GW ~*~ 
neat 71 
o> 
a 2 


; YES-NEXT vest 
;NO-ISSUE NO SCROLL we 


Heal, wstok™" a A or OP RERSOR POs POSITION STROAGE. 


ae 
eo3 
S 


CKSCRB: 


- ernest ee — a Se a eee ee 


PRIOR ROUTED ROM SS ea aE aee Soa SRO EGR Mares 





SSE SEs: 


ates TSR RO LOL -LOAD — BUFFER WITH 
O33 BYTE £ R23, .C79, 101, .ESC, .0, iar 3 
117 
033 110 033 -BYTE .ESC,.CHOM,.ESC,.0,.TCUCH,O 
1 27 
012737 poo0is 016270 MOV #13, XMCNT :SET UP TO XMIT 13 BYTES. 
2267 004037 0166 JSR 0, KAREC -XMIT AND WAIT FOR RECEIVED DONE. 
SPE BMT ERROR i ‘LAST XMIT CAUSED VT61 TO HANG. 





BUT Bite ERROR POINTE 


000414 


2270 O0073te 
7 

74 

276 


7410 
14 


Robe ais eee ct ae 
33 
2S 


© 
pars 
S 


wa 


eo 

- 8 
o-* 
PS 
-— 
Ww 


Sto 


ae 
SS 


eS 


< 
mw 
cS 


006364 002224 


ayooRaeeseses 


% 
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GOSCRL 
GDSERL » ZERO 





ot aia , 
iY LENT Teer 
sNO-ISSUE NO SCROLL ER 


ROR, 
he ee pose ebas RECEIVED CURSOR POSITION. 


SCREE 


iN Ie, E N 
;POSITONING THE CURSOR (VIA 

; AND THE “A” AT THAT POSITION 
; THE SCREEN IS THEN READ TO 
EXIST ON THE SCREEN. 
;NON-SPACES ARE REPORTED. 


s ELLZLAELALLALLLLALEAA RELELLLLLLELLLLALLLELLELELELELELLLELLELALELE 


#1,STIMES 


#CURS2, SLPADR 


#77577, VSTAT 
RESETV 

aTOTCH R2 

SOM, a TBUFP 

RO, a RATT 

Ro’ 

10$ 

#101 a7 @TBUFP 

PILGNT, ALWCNT 

a 

Re 78 

DCRAD, (R1)+ 


(R1)+ 
#40, (RL)+ 
i T 





URSOR ERROR. 


eee ee eATG TEST INSURES THAT THE VTE] CURGOR CAN BE 


INSURE HE VT61 
ONED TO VERY POSSIBLE _ROW/COLUMN POSITON 
SCREEN. Mat A CHERRCT BY FILLING THE 


TER(A) AND THE 


say 0 ge singe gepigmanten anc ea ecremenrepmanaamei enfin e ereet 


;;00_1 ITERATION 
;;9ET SCOPE LOOP ADDRESS 


;CLEAR ALL FLAGS BUT XOFF AND XMKIL 
RESET THE UNIT AND a FOR XON. 
iL OA A COUNT OF SCREEN( 1920). 

XMIT THE START OF MESSAGE. 


amen XMIT COUNT 
sCOUNT = ZERO? 


;LOAD THE eR ete 
;NO-XMIT ANOTHER BYTE. 


sRESET INT POINTERS 


‘Pood? eOrPeR oT 
RF RGOR TS Fa ee IN BUFFER 


; SPACE 

s9 1 UP TO XMIT S CHARACTERS 

;CLEAR ALL F BUT XOFF AND XMKIL 
sXMIT INTERRUPTS. STACK 


;;PUSH & 

;;PUSH #2 ON STACK 
Scie a 

sNOT FOUND-ERROR EXIT 
‘DELETED TO HOME? 


o> ——_— re cee — ER re re ee ee a 
; 
’ 





jae 





MAT 1-D2vTJ-A 1 27(722) 25-SEP-76 09:05 PAGE 46 
a bit ERROR POTNTER TABLES 
5358 HOS Ms 
JSR CMPOS *NO=GET NEXT POSITION TO GE DELETED 
HOV "poe 30RD T IN XMIT BUFFER 
23: JSR RESPTR iRESE NTERRUPT POINTERS 
7 017544 MOV CUBE, LNRM ‘LOAD INITIAL CHECK POSITICN(HOME) 
MOV TBBUF RI *LOAD XMIT WITH 
MOV R1,Re “STORE ERRORS IN XMIT BUFFER 
002260 BIC #77577, VSTAT § ;CLEAR ALL FLAGS BUT XOFF AND XMKIL 
O0e2be HOV #1001, EKn -SET XMIT TO SOM- DATA -EOM. 
A al 
ie : HOV xNTAL (R1)+ s TRANSMIT ALL 
1 : l si 5 BIS BXENA,aVICSR SET XMIT ENABLE 
MOV #XMDNE.-(SP)  ::PUSH @XMDNE ON STACK 
1 MOV 83, -(5P) : > PLUSH 83 ON STACK 
JSR WTBGND -(O0OK FOR SOM OR XMIT DONE 
BR COXT : NO EXI 
4S: MOV RBUFP, RI : SET RE FLAG 
CLR DLAY -SET UP TIME OUT DELAY 
201 40S: § CMP Ri. RBUFP CHARACTER RE IvED? 
BLO 41§ -YES-GO CHECK IT. 
3797 002260 BIT SREOM, VSTAT “LOOK FOR END OF MESSAGE 
007764 001025 BNE C2CK ‘FOUND IT, EXIT TEST 
007766 DE DLAY “RUN TIME OUT DELAY. 
BNE 40S “AND LOOK FOR RECEIVED CH 
ERROR 11 “LAST XMIT CAUSED VT61 TO HANG 
BR COCK °GO SEE IF ANY 
356 O01 015760 41$: MOV RBBUF . RBUFP *RESET RECEIVE POIN 
10006 000040 CMPB © SRBBUF, #40 ; CHAR EQUAL A SPACE? | 
10014 BNE 6$ <NOT A SPACE-MUST BE ERROR-STORE IT 
1001 cS: ISR RO, CPPOS ‘UPDATE CURSOR POSITION 
1 Bt 6S: CMP BTCRLB+20.,R2  ;STORED 10 ERRORS? 
010030 BLOSSiséSSS :YES-IGNORE ANY FURTHER ERRORS. 
010032 MOV LNRW, (R2)+ “STORE FAILING CURSOR POSITION 
10036 BR S$ 
010040 C2eCK: CMP R2, TBBUF sANY ERRORS STORED? 
10044 BEQ COXT “NO EXIT TEST 
10096 MOV TBBUF RI USE R1 AS POINTER 
1 1S: CMP (R1) ,RE3C79 -CURSOR TO LOWER RIGHT? 
10056 BEQ C2xT :YES-NOT AN ERROR. 
1 ERROR le *NO-ISSUE ERROR MESSAGES 
10062 MOV #20040,-(SP)  ;;PUSH #20040 ON STACK 
2373 O01 MOV (R1)+,QRBBUF  ;LOAD FAILING POS. 
ear 1 JSR RO, CURER “TISSUE CURSOR ERROR 
1 CMP RI Re ‘DONE WITH ERRORS? 
2 010100 BLO 1$ iN DUMP ANOTHER. 
ze 10102 C2xT: NOP Exit TEST 
Merritt ttitiititttiiittititiiitittttiitttt ttt 
; ROU O INSURE PROPER OPERATION OF CARRIAGE RETURN 
2361 -AND LINE FEED DURING NORMAL MODE. INITIALLY THE CURSOR IS 
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WON UILCUITM©O 


Retneeenae 
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VRRP 
OO OOOOOOOOOOOO OOO OOOO OOOOO0OO0OO00000 e200 


"| steele 


<2 = Ob * & + b= & — B+ 0 & -= B- 2 Ho > HH eh -9 + bh *  ~ — h- * h  h hs hem O e Hoh +H eH e— > -p— 


at 
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016270 


00S462 


001126 
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T(VIA D 0 ROWO.COL 20 afd Q D8 LINE FEEL IS ISSUED 
re CURSOR BOSITION ON IS THEN OW1, COL20. 
BRRIAGE RETURN 1S THEN ISSLED AND CURSOR position VERIFIED 
s8¢ BE ROWI,C 
5 FELELERSLERAALSELLLLAARELALLAEALALELELELELLAALFLELELLAAELALLELE 


s LLLELELELSLLAELLLAARLERALLLAALLEALLALELAARE RELELARLL A FELLAELELEE 


tSTl6: SCOPE 
MOV #S, STIMES ::D0 S ITERATIONS 
MOV #NWLN,SLPADR  :;:SET SCOPE LOOP ADDRESS 
NWLN: JSR RO,RESETV sRESET THE UNIT AND ENTER MAINT. MODE 
ISR “LOAD XMIT BUFFER WITH- 
.BYTE .€SC,.Y,.RO0,.C20 
-BYTE .LNFED,.ESC,.0,.RDCUR, .BEL,O 
MOV #9. , XMCNT ;SETUP TO XMIT 9 CHARACTERS 
JSR RO. XMREC -GO DO IT 
BR 30$ «NORMAL EXIT. 
ERROR i * TRANSMISSION CAUSED VT61 TO FAIL/HANG 
BR 4 ‘EXIT TES 
30S: CHP RO1C20, 3RBBUF “CHECK CURSOR POS. S/B ROW 1, COL 20. 
CLR SGDDAT 
MOV LNFED, SBDDAT 
ERROR sISSUE IT 
MOV 1020,-(SP) ::PUSH ROIC2O ON STACK 
= JSR RO CURER : SETUP ISSUE CURSOR ERROR 
MOV C T CRI) -LOAD XMIT BUFFER WITH 
MOV ESCOI. (R1)+ ‘CARRIAGE RETURN, READ CURSOR 
MOV RDCUR, (R1)+ : POSITION 
MOV #4, XMCNT “SET UP TO TRANSMIT 4 CHARACTERS 
JSR RO; XMREC -GO DO IT 
BR 4un$ ; NORMAL EXIT. 
ERROR 11 TRANSMISSION CAUSED VT61 TO FAIL/HANG 
BR Ug EXIT TEST 
40S: § CMP RO1COO,IRBBUF  ;CHECK CURSOR POS. S/B ROWL, COL C. 
BEQ 4 EXIT TEST IF GOOD. 
CLR SGDDAT 
MOV CARRT , SBDDAT 
ERROR | sISSUE IT 
MOV ROICOO,-(SP) § ;;PUSH ROICOO ON STACK 
a SR , CURER -SET UP AND ISSUE CURSOR ERROR 


s LELLLALRALEA LALLA RELLLLL RELA RAAF LEAESKLELELELLLE LE RLLARALELLEE 


ISCREEN. SCREEN Te LRITTEN 10.1960 INCREENTING CHAR. 


ENTIRE "SCREEN ts READ NVERIFYING. THAT. TT is. ALL NULLS. 
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ERROR POINTER TABLE 


3. 
HES Hie ia 


Aas 


ce 


Oie676 

On044 

| : 005310 
16654 

117737 haes?e 

104004 

000249 


0 -b-+0-~-6 + >= > — b-< & = p-+ 6 -= B-- B— + + 2 = hs 2-8 we + HH oH 


PEGE RRO TOR INeEED 


io47e O12737 90000 


D10s00 012737 010506 


10806 013746 O0ee24 
e493 O0105ie 013746 O0e1S6 


ONOOOOOOOOO00OC YIOodoO000000 


—— _——-— = — 


s LERLLAALAAEFLLAFLLELE SLA SLA RELELLALALLLAL ALLA FLALERELALELELES 


ES RRR em eee ees 


001156 82 STINE on $300 3 ITERATIONS 
90: 106 sERSE -:SET SCOPE LOOP ADDRESS 
ERSE: JSR RO, RESETV TT MA 
uP SPARKS iCLERR The CHEEK cK eTATTON 
JSR RO, DATSC 
MOV T R 
JSR ~~ XMIT BUFFER WITH: 
033 -BYTE .ESC,.CHOM,.ESC,; ‘FOS. ESC, .0,.XMTAL,O 
001125 MOVB § ESCN, SGDDAT+1 
001124 MOVB £05 $c0pAT LOAD ERROR WITH ERASE TO EOS 
CLR SBDDA 
016270 MOV 87, XMCNT -SET UP TO XMIT 7 BYTES 
ISR RO, XMREC :XMIT AND WAIT FOR REC. DONE 
ERROR il sESC ERROR 
BR ERSXT “EXIT TEST 
002224 Ss: CMPB § SRBBUF, ZERO :-VTb1 XMITTED SOM/EOM ONLY? 
BEQ ERSXT YES-EXIT TEST. 
OR 1 ‘NO-ERASE TO END OF SCREEN 
SR CLREG *GO CLEAR ERROR STORAGE 
001126 MOVE § dRBBUF, SBDDAT 
ERROR 4 s ISSUE DATA ERROR 
ERSXT: NOP 
‘htaaimimiababe bythe Sat tah} tart teeta b-iat tb btt bet +--+ ite 
0 SET PASS INDICATION. 
ICELE TEST(ESC 0 T) IS ISSUED TO THE UNIT UNDER TEST 
AND AN 1S D IF THE UNIT CANNOT RESPOND AFTER 
“SELF Test IS C F SELF TEST IS SUCCESSFUL THE 
Ro 2s IS WRITTEN TO 23 LINES OF INCREMENT CHARACTERS 
THE TRENT Te 1s Oren CHE uF P COPIER 1S PRESENT A 
SCREEN COMMAND is ac (NOTE: THIS COMMAND WILL CAUSE 
UNIT TO 0 BE “Busy AND NOT RESPOND TO ANY FURTHER COMMANDS 
HAS BEEN COMPLETELY COPIED.) 
cpnuensidttll THE, SOCEEN His, BEEN COMPLETELY OPTED.) 
"+ war * > * peeeseseapmsspmmamppasassnmmemmmmell 
001156 MCV #1, STIMES D0 1 ITERATION 
001106 MOV wlSTST,SLPADR ;:SET SCOPE LOOP ADDRESS 
LSTST: 
MOV ZERO, -(SP) :sPUSH ZERO ON STACK 
MOV TSTER, -(SP) ::PUSH TSTER ON STACK 


04 


-11-D2VTJ-A Y1l 27(722) 25-SEP-76 09:05 PAGE 49 
OZVTI. P11 ERROR port TABLE 
010516 MOV ESCO, -(SP) : » PUSH SH ESCO ON STACK 
10522 JSR R0 ES : TRAI N ITH. tess 
13288 9,409 SPONDED-NOT HUNG 
1034 001124 MOV vice son SO0AT ib THE A00 ROORES 
l 001126 MOV 
1 ERROR ‘REPORT Srl F Tes TEST FAILURE 
1S: SR R RESETV T AND SET MAINT. MODE. 
i! 002260 2S: gif Bue VSTAT ae ALL Er FLAGS BUT "aoe AND XMKIL. 
1 MOV TBSUF ,R1 1 ee OF NTT BUF FER 
HOY #320. Re ILL BUFFER WITH NCREMENTING CHAR. 
1 MOV #1001, 8LKM -SET XMIT TO TA -EOM 
1 ibe MOV #960. . XMCNT : SEND bine 0 VTbl 
1 171134 BIS 8XENA. aVICSR 3E XMIT INTERRUPTS 
1 MOV #XMDNE. -(SP 8 axHONE ON STACK 
l MOV #10. .-(SP) : + PUSH #10. STACK 
1 42 BR RO ut 3600 Fb ONT 
10644 TST per ; DONE WITH ? 
1 BNE 3$ : YES-EXIT 
l MOV #SETREV.R3 ‘NO-ISSUE ENTER REVERSE VIDEO 
1 JSR RO. LOXMET <ESCAPE SEQUE 
1 INC T : INCREMENT SCREEN HALF FLAG. 
1 BR “AND ISSUE SECOND HALF IN REV. VIDEO. 
10670 0: 002160 3$: BIT #8ITOO, IDENT §§ ;IDENT = COPIER? 
10676 BEQ NDSEL’ : NO 
1 MOV RO. -(SP) + USH ZERO ON STACK 
16704 ¢C MOV s. eChiSC -(SP) ;:PUSH #.CPYSC ON STACK 
19710 MOV -(§P) -:PUSH ESCN ON STACK 
10714 ¢ JSR ROT Sc 
i076 JSR RO; CKABRT sCHECK FOR A PERIPHERAL ABORT. 
ENDSEL: TSTB MODE -IF IN MAN MODE DO NOT ENTER EOP. 
l 
01 


S99 


& 


: 


: 


l 
l 
| 
1 
1 
} 
1 
1 


cra 
E 








STR 
171016 ENDPS: BIC SRENA,aVICSR  ;CLEAR REC.INT. BEFORE NEXT UNIT SELECT. 
EEHHBHEEHE HEHEHE EEE HEHEHE BEEBE HEHEHE 


-SBTTL END OF PASS ROUTINE 


;#INCREMENT THE PASS NUMBER 
eNO ICATE END-OF -PROGRAM ia Pei 1 passes THRU THE PROGRAM 
ASS #XXXXX"_ (WHE A DECIMAL NUMBER) 
IF SWle=] INHIBIT TRACE TRAP 
; #1F THERES A MONITOR GO TO IT 
;#IF THERE ISN’T JUMP TO MODCA 


sat 
000004 SCOPE 
005037 01102 CLR STSTNM 35 ZERO THe TEST NUMBER 
005037 601156 CLR STIMES *ZERO THE NUMBER OF ITERATIONS 
c2 1100 INC $PASS t INCREMENT THE PASS NUMBER 
100008 001100 BIC #100000,SPASS ;;DON’T ALLOW A NEG. NUMBER 
~~ DEC (PC)+ > sLOOP? 
000001 SECPCT: .WORD 


t— h- §—< @ ~~ & = § -- @=<f= b= 6-2 & - B= pase o 


S3eeeeneraee Fecaehnesecsasy 


© 2 b+ & + §- 2h = hs P= & +8 = = b= — & -- DB = 2 b= B= F-3 BH =~ B29 P= > 
b-+ 6 + b—< §- =f << p< p< & d= & +h +b ~~ -2 0-2 & — =F < HP -« & © Hp — Pe 


b= b= 6 = b+ + & = & = P= & ~ p -4 Be 


Shee E6ZNeZSMENS 





Oo0ood000O OOOOOO OOOOO OOO O00000000 


b+ &— 6 = B+ 6-H 2 = 


™“ 


= p= = 9 9 9+ pe 
~ 


&-4 B+ F-+ f= F-—2 &— b— 


te 
BD 


Baer Ce eee nar en 


= 


at tattatta 


co 
we 
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END OF PASS aduFine 


Bat id 
011171 
O0064e 


011052 


oood4e 


O11160 


Ue 


LO4 
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Roy +, a(PC)+ tS RESTORE COUNTER 
WORD 


es: MO 
SRTRN: RT 


SENDCT: 
SEQPCT 
nov Ree (sp)  tisave sBees FOR TYPEOUT 
TYPDS 3390.1 TYPES “DECIMAL RECTI WITH SIGN 
T , SENULL :: TYPE CHARACTER 
$GET4e: 
a#42, RO :;GET MONITOR ADDRESS 
SDOAGN ::BRANCH IF NO MONITOR 
; sMONITOR, CLEAR 
-(SP) -: INSURE THE “T" BIT IS CLEAR 
#SENDAD, -(SP) +;:SETUP FOR AN RTI OR ATT 
SRTRN 3360 DO AN RTI OR RIT TO LOAD THE PSW 
*:WITH A CLEARED “T” BIT 
2#42, RO si GET MONITOR ADDRESS 
BE SDOAGN ; BRANCH Bia NO MONITOR 
SENDAD: PC, (RO) i TO MONITOR 
NOP ROOM 
NOP tt FOR 
NOP :ACTII 
SDOAGN: 
CLR -(SP) ; RESERVE A STACK ye oes FOR THE PS 
MOV an -(SP) js SETUP PIHE TROP TRAP 
HOV $, 0834 3 
1S: TST (SP)+ + CLERN OF OFF THE USED PC 
MOV (P34, 538 : RE Rep VECTOR 
BIC fs RESTORE TREP "T" B 
BIT SSItiz. 2SWR it “RN WITH TRACE” TRAP? 
Cor IT i119 IT TIME FOR TRACE TRAP 
BIS #20, (SP) 6 


:SET TRACE TRAP 
V #SLOOP, -(SP) : JUMP TO START OF TEST 
I ; ;RETURN~-THIS, IS CHANGED TO 
RTT” IF “RTT” IS LEGAL 
ape S NSTRUCT ION 


cell Me JeMODCA : s RETURN 
SENDMG: .ASCIZ <15><12>/END PASS #/ 


SENULL: .BYTE NULL CHARACTER STRING 
se esidiuccsscussushushsssnesunsebisstiucsssaceccssensessussesens 
sROUTINE TO ECHO THE | KEYBOARD. KEYS FOR TAB, BELL, CARRIAGE 
“AND LINE FEED ECHO A HNEMONIC, NON-DISPLAY Y HAR ECHO OCTAL 
sEQUIVBLENTS AND DISPLAY CHAR. ECHO THEMSELVES. 
(EXAMPLES-CHAR. ,SPACE, ESC, SPACE OR 037, SPACE.) A 
sCONTROL C (003)'WILL CAUSE’A TEST EXIT. 


iL | 


-11-DZ2VTJ-A mee’ Ad Se 2S-SEP-76 09:05 PAGE Sl 
-P1i END OF PASS ROUTINE 


s SRRSRASSAAELFSEAESESALASALSLALALALEAELASAAFAALAALALAALERELALALE ELE 


eS 


EEEESESSEEEEREEERALE SEALERS L LL EEL ES EEREALLL LL EEERRERLE LEAS FES 
: SCOPE 





é nie Nees ST21 
1 % Ol 00! ::D0_1 ITERAT 
: HG Sear STRELA > SIRS exes 
011212 004037 017262 KYBD: _ 
te Blises s0sas? Os0ai Met: CARD ESSE 
ig tise 1 10 SSUE CONTROL C EXIT 
ig O11 119 
tS o1isas J ; ISSUE EXIT MAINTENANCE MODE 
i152e TE53> BSiBag CORcee KYSTRT: AB ALL cH RECE] KOPF AND XMKIL. 
11 1001 ie PROCCSS I 
1] 1 te T FOR A 
11264 11 021030 118: RAW RECEI\ 
peS 011270 604037 OSi600 ‘CHECK FOR EXIT CONDITIONS 
5657 Lier Gogls? 003332 SEXI sts 
5B (O11 101 108: :CLEAR CHAR FROM BUFFER 
oC is ie 002260 ic (033)? 
1131 01 SYES = RESET ESC ASSEMBLY FLAG 
1 Es O27115 ‘LORD ESC MESSAGE ADDRESS 
11330 120127 oo0041 128: sCHAR. LESS THAN 41 OR 
11334 103415 ‘HIGHER THAN 176, GO ECHO 
tie 120127 000176 SOCTAL EQUIVALENT 
tissd 110079 04716 sLOAD CHAR. IN XMIT BUFF. 
11350 04037 0171 -GO XMIT IT 
11 pososg 004704 ‘LOAD A SPACE 
ise po037 17] SAND XMIT IT. 
11370 120137 002004 25: s CHAR. =BELL? 
45 1376 12703 027371 sLOAD BELL MESSAGE ADDRESS 
11404 120137 o0e012 3$ :CHAR. =TAB? 
Liste Me 027352 sYES-ECHO * TAB’ 
ees th 002006 4S sCHAR. =CARRIAGE RETURN? 
ive 012703 027357 sYES - ECHO ’C/R’. 
Bi i4ad 12013? 002010 5S sCHAR. =LINE FEED? 
1is3¢ OO) ;NO_CHECK FOR CONTROL 2 
57 Hine 027364 -YES - ECHO 'L/F’. 
Bf 12 ES: coment BINARY TO OCTAL 
e660 Ollvs4 012703 ObeeeD 
11460 042737 077577 CO2260 KYBXMT: BIC  #77577°VSTAT  ;CLEAR ALL FLAGS BUT XOFF AND XMKIL. 


17222 


pout Bit -11-D2vViJ-A MACY11 
END OF PASS 80U 
017222 
Bisse Dooes 
u7y KK 117 
Bilas? 
: 
: 
a 0 om 
$10 Ol 011516 
S16 a 027554 
7 
1 114 





BENE REG RON 


5/3 Qll 
- ll 
- il 
~ = ll 
7. ll 
~ = ll 
=e ll 
- ll 
ae ll 
—S ll 
“+ 11 
9 11 
11 
1! 
94 Oil 
2695 O11 
a 11 
ll 

os itis 

11614 

11620 

1 QO11l6e4 

tlie 

BL Lee 

tae, 11650 

eS 11654 

11656 

Ae 

Biiev 

011674 


SSSN88 


NOU LWT O 


27 (722) 
Five 22 


141 


002260 


016270 
170122 
002260 


O4 


25-SEP-76 09:05 PAGE Se 
JSR XMIT 
aR RvatRt ‘iar oR ure CHAR. 
sSEQUENCE TO EXIT MAINTENANCE MODE. 

EXMAIN: .BYTE .ESC,.0,.DMAIN,O 


pe ROUTINE TO UTILIZE THE VIGL AS A PRINTER CONTROLLER. 


Poe OF reer acted Eaeata tt eet fem 
SeAR DS 1s tes orn 


Prt ttt tir titttttiitittttiiitt tt iit tii itt tte 
(gg + ge perm iage imine oa ong meena yor Cnet tn 


tst22: Sc 
MOV #1. STIMES ;;D0_1_ ITERATION 
MOV STPRNT,SLPADR ;:SET SCOPE LOOP ADDRESS 
TPRNT: MOV #DPRNT, Re apm PRINTER MESSAGE ADDRESS 
JSR RO, DSMES “AND ISSUE IT 
MOV #EXMAIN. RZ 
JSR RO, LOXNIT s ISSUE EXIT MAINTENANCE MODE. 
a JSR RO; GTCR °GO SET CARRIAGE RETURN 
MOV ZERO, -{SP) :PUSH ZERO ON STACK 
MOV EPNT’ -(SP) : PUSH EPNT ON STACK 
MOV ESCN -(SP) ::PUSH ESCN ON STACK 
JSR TESC 
MOV TBBUF RI sLOAD R1 WITH XMIT BUFFER 
4S: MOV #41.R5 -RS=1ST CHAR 
cs: BIC 477877, stat ‘CLEAR ALL FLAGS BUT XOFF AND XMKIL. 
MOV ise. "RS LINE WIDTH 
JSR BLOINA G0 purira A SLIDING PATTERN. 
MOV CARAT. (R1)+ ;LOAD A C/R AND L/F 
MOV LNFED, (R1)+ 
MOV $134. , XMCNT -SET UP TO XMIT BY BYTES. 
BIS #XENA. aVICSR 
BIT WXMDNE,, VSTAT sWAIT FOR XMIT DONE 
JSR RO, EXTST +  sCHECK FOR EXIT REQUEST. 
BR ;NO-CONT 
IMP ASTRT -YES-EXIT TEST!! 
6S: JSR RO, CKABRT ‘CHECK FOR A PERIPHERAL ABORT. 
CMPB =s-#177,, RS “EXCEEDED PATT. LIMIT? 
BNE c$ : NO 
BR 4$ -YES RESET IT 


s RERELERHEELLAL LER LE LE RELL LRERELEAEEE LEAR LELAE REL LARELALL ELLE 


sROUTINE TO LOOP DATA/COMMANDS FROM THE VT61 BACK TO 
;THE VT61. DATA TRANSMISSIONS RESULTING FROM A ESC 
sSEQUENCE WILL ALSO BE LOOPED AND WILL ENTER THE SCREEN 


—— —— ———— — ——- « 





a ee am ke  —  - — ee  S  S e Ae 6 ee eee oe 


EARNS ESTEE ET ES PSETIEPERESTT 


MAINDECS11-Dc 
OeVT SFL 


rurury 
psc 


: 


DOOVOOOOOOOOOOD0D000N F2O00 


0 -- © = & ~6 = & < & = 0 -— b = & «= 6 + & <b = 6 +H <H-0 & > b-* 6-4 H~< 


a3 


¥ 
LEN 


 Tr-5 


END oF 


Rot 


“j~3~3~3 

O2eo-e 
= 

mt 

ae | 4 

mY 

“J 


Ooo 
ee oe 
¢— > <6 -< 


atae 


So 8 





furs 


od 
os 


Rie subes eairyis 


———e ee On lUOlC eee = 





017222 


000012 


ES-SEP-,6 09:05 PRGE S3 


ceuesensittes 


Te 


LPTST; 


THE CURSOR POSITION. THIS TEST CAN BE Te 1 SRA, 
t CREATE. SPECIFIC SCREEN PATTERNS AND OPERATION 
LERPESESEDESESSODEPEESFDES SERS FLERPERESERSSESD SEESS 


:ttEEPPRRERERSERO EERE OSSESEEER SES ESSESSEADESERESESEEESEE DEEDES + 
COPE 


TIMES $320, 1 ITERATION 
i eest. SLFAOR ;:SET SCOPE LOOP ADDRESS 
RO, RESPTR sRESET POINTERS 

OP Re “LOAD LOOP MESSAGE ADDRESS 
RD ptooe 8 ‘BTSPLAY IT 

XMAIN. R3 
RO, POX T - ISSUE EXIT MAINTENANCE MODE. 
LOOP -G0 LOOP VT 

Retht sENTER MAN MODE VIA SCOPE ROUTINE. 


s SSFREFSSEFLLLEKELLLESESAEELEAAEFESLLLELALAELELELELELELELAALLEFSE 


sO pue een KEYBOARD Te 
3 OR R MISTAKES # 


: THIS Test” 1s RUN IN MAIN 
sWILL a THE Tce BA Aut 
RRORS W 


Fis of + KEYS MUST BE ete 
HROICATED ON SCREEN. ALL ERRORS 
DISPLAYED IN hs ‘ POSITIONAL 
POSITION IN THE ROW IS OISFLA 


NHE ik 
NOT THEIR horcares MNEMONIC. 
OMATIC EXIT FROM TEST 


seven eS HLL SUSE TORTS BT OO TS asaanaee 


PPT TTT TT TT TTT UTE TTT TTT TTT TTT TTTTT TTT TTT TTT TTT ETT TTP T Tr 
tST24: SCOPE 


DORROW: 


1$: 
FEXIT: 


CLMAIN: 


-_-s- 


OV 
MOV 


$Ggancs Goes 


noe 2Hu 
—~ Oo 


“oe4s* 


=] 
w 
— 


#1 STINES 1 ITERATION 
ePDKBD, $LP T SCOPE LOOP ADDRESS 

#OKBO Re 

RO "OSMES ;DISPLAY KEYBOARD TEST MESSAGE. 

BUBCT “CLEAR ERROR COUNT LOCATION. 

OTTBL(RS),RY  ;SET UP ’GOOD’ CHAR. POINTER 

MSTBL(RS):R3 

FEXIT i MESSAGE -EXIT. 

CUMOTN RESEAGE I a CLEAR MAINT. MODE. 

RO, LOXMIT tT SSUE "ROW OR FUNCTION’ MESSAGE. 

RO; CKKBD ie CHECK IT 

BUBCT, #10. EN ERROR EXIT? 

1$ = NO-CONT 

FEXIT -YES-EXIT TEST. 

(RS)+ NRE OFFSET. 

DOAROW -D0 NEXT ROW/FUNCTION. 

sDEXT, Re 

RO, DShe S ‘endl EXIT MESSAGE 

BRSMAIN, R3 sSET UP TO EXIT MAINT. MODE. 

RO. LDXMET 

(RS)+ s INCREMENT OFFSET. 


Bs 
=e 


~ 
~a™ 


eo... 


ROMY SAN SE Sense SasGenaoh oad iaromiseaRteRes IIo 












11-DZVTJ=-rR MACY]1 e7(732) eS-SEP-76 09:08 PAGE S4 
i END OF PRSS ROUTINE 
12074 saan BR DOAROW sNOW TEST CONTROL AND SHIFT FUNCTIONS. 
ieee © li? 141 RSMAIN: .BYTE .ESC,.0,.0MAIN,O 
i 


; ABLE OF MESSAGE ADDRESSES. 


pisite 030175 030302 O30337 MSTBL: .WORD OTOP,OSEC,DTHRD,DBOT 
lel 44 030870 177777 WORD ODSPCE,OKPD,-1,DCONT,OLSHFT,ORSHFT,O 
lel LS O301e3 030227 
lel 
012130 030771 O310le 031032 OTTBL: .WORD ROW1,ROW2, ROWS, ROWY, SPCB 
nists Sota 0319 
leise 19 031066 WORD KYPD,O,CNTRA, SHFTA,SHFTA 
O1eiSO 631070 031070 


FSFELLEFELELEESELESEEAL ELLA SELL SE LELS LEAL ELLA LEELA ELE ERE SELES 
: ALLOW SETUP FROM MULTIPLE 
PIxitcisitrisriiittittiitittititiiiitettitittittitititttriciiie! 


















Ole2l SETA: 
biStey 012706 001100 MOV SSCMTAG, R6 sFIRST LOCATION TO 1BE CLEARED 
12160 D0S0e6 CLR (R6)+ CUED MEMORY LOCATION 
* i 1374 oem ne °:1 OOP BAC 
Bi5176 Oi 70e 1106 MOV aS TACK 455! uP THe ack POINTER 
pei” 1770 000020 Hoy 8 $scOPt aar0ry c’; ss10T VECTOR FOR SCOPE ROUTINE 
a Oi737 550050 OV SSERROR BHENTVEC’ EMT VECTOR FOR ERROR ROUTINE 
IBA Glee Bee es re EENGGec A ecron ron Tr caus 
‘eae eB agE flue roaune. vere 
12254 O1 O11 010772 MOV T, SEOPCT 3396 SETUP END-OF “PROGRAM COUNTER 
bi seee 601160 LR UAPE Haste SHAPE BE. on ERROR ADDRESS 
] 1 1 001115 MOVB ° AL PER TEST 
012300 415737 11144 O00014 MOV eSATA 98 ITVEC iy SeT rte BIT VECTOR T0 SRTRN 
Ot 1 000016 MOV a0. af 181 C42 : 
isang l 011144 MOV 3 TRN TO A RTI 
: 1 012350 000010 HOV tb55, + 0.00 A RIT ; 
1 By Soue 012340 MOV Hf pC 
1 RTT -TRY THE RTT 
0 O0000 O11144 EHS: HOV RTT IS LEGAL--SET SRTRN TO A RTT 
12350 000010 65§: ADD #10, SP RTT ILLEGAL--CLEAN OFF THE STACK 
; 01 D000 12 000010 66S: HOV SRESVEC?2, asresvit” jRESTORE TRAP CATCHER 
See 1 BID AEE 001106 MOV - #6 Tia Ize ote tbo” ADDRESS FOR SCOPE 
bles? 012374 O01110 HOV #. SUPE “4 SLPERR sy SE TU ene ERROR LOOP ADDRESS 
BL SDE 1 Soup BpDORE MOV 386, - " 


_——* -— 2. omer ~ ee 


A eS ME A LT  , 


= a oe —— Os =e et —- ss ool ee ee ee ae 


- 





OS 


eG tt Oeviae MACY]1 ev(732) eS-SEP-76 09:05 PAGE SS 


70$: JP AUTOR 
(ae a a 
;THIS SUBROUTINE WILL VERIFY EACH IT IS 


‘ 
: {AHHH SHH HHH HHH HHH HHH 


012624 020227 160000 TMNAD: CMP R2. #160000 - INSURE ADDRESS IS IN RANGE. 
12630 103407 BLO BOE ey Up NOT=TYPE A ? AND EXIT. 
leb3e 012737 012646 OcOoc004 MOV #8DEXTA, a84 XIT. 
Leb4O 1 TST teheck THe 'p ss. 
1 NOP 
012644 OO040S BR ALEXT = WE GOT THIS FAR ITS OK. 
1 022626 BDEXTA: POP sADDRESS TRAPPED-PURGE IT, TYPE A 
l 1 027770 nPED QMRK _-«- $QUESTION MARK, RESTORE 
1 012700 002346 MOV HELOADO,, RO ‘LOCATION, AND EXIT TO BUILD THE 
012660 012737 OO00006 O00004 ALEXT: MOV #6, a84 NEXT ENTRY. 
012666 000200 RTS RO 


Tahalelelalalal-irt-t-teb-t-ty}-+-bt ght -9-+-ta-taa-+-+-$-4-4 tattle 9-3-5 4 tl te 
sTHIS ROUTINE MAPS DJ11 ADDRESSES AND STORES 
THEM IN A TABLE CINTAB). ALL ADDRESSES WHICH DO NOT 


DZVTJ.P END OF PASS ROUTINE : 
2830 oO12412 012737 012426 O00004 MOV 67,4 ¢:SET UP TIME OUT VECTOR 
e531 p1e420 777 «166512 TST ISWR’ es TRY TO REFERENCE HARDWARE SWR 

l 07 BR 683 + 7BRENCH IF NO TIMEOUT TRAP OCCURS 
2833 Qi e O ? 176 091136 678: MOV eSWREG, SWR s:POINT 10 SOFTWARE SWR 

l ] 174 001140 MOV eDISPREG, DISPLAY’: 0 SOFTWARE DISPLAY REG 
2835 01 MP (SP)+, (SP)¢ RESTORE ORE STACK 
e836 l 12637 000006 68S MOV (EP )s ae RESTORE ERROR VECTOR 

] 1 000004 MOV (SP)+, aa4 
2838 01 177777 NC a1 -sFIRST TIME? 
2839 01 001017 6 : > BRANCH 
eB40 Ol 011052 oooo4e C BSENDAD, D842 © 5 ;ACT-11 AUTO-ACCEPT? 
esti | O128: 01413 a BEQ F NO 
ee Oisd72 1 oi2sc0 TYPE 70S + TYPE ASCIZ STRING 
2843 Ole476 900410 9 695 ;GET OVER THE ASCIZ 
eeve joo jiz08: "ASCIZ (200) sHD-11-D2vT}2As<200) 
enue 12520 104400 023726 TYPE STUPM_ ; ISSUE SET-UP NE SSAGE 
2847 012524 16737 912644 000010 MOV kTRPA, a8! CTOR | 
2e48 012532 ae SPL 0 -PROCESSOR IS 11/45? 
[e493 Ol 012737 oOo00004 o20216 MOV 84, PMULT * YES-DELAY MULTIPLIER = 4 
oso 1eS42 OO0416 BR RTRP 
PBS2 012544 022626 TRPA:  POPeSP :NO 
2953 Ol 012727 012570 cooo10 MOV sTRPB, 2810 :RELOAD TRAP ADDRESS 
2854 01 006737 O02216 SxT CHRD “PROCESSOR IS 11/40 OR 352. 
2855 012560 012737 000002 ocetel6 MOV 82, PMULT : YES-DELAY NULTIPLIER=2 
2856 012566 900404 ak RTRP 
Baa 912570 022676 TRP2:  POPesP 
2853 OleS7e Ole73s7 oofen! oe0e16 MOV #1, PMULT -PROCESSOR MUST BE 11/05 
2860 012600 012737 Of00le OOS01ID RTRP: MOV 12,0810 ; RESTORE TRAP CATCHER 
226) 12606 105737 oLe232 STB 7 ‘CHECK MODE FOR CORRECT EXIT. 
oees Bt 14 137 002332 JMP XIT TO MANUAL SELECT 
2864 Olebe0 000137 f0ee76 T T0 AUT 
see 
2870 
He 
Sere 
2879 
2280 
Bah 
2683 
284 
Peet 


| 
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DZ2VTJ.P11 END OF PASS ROUTINE 
‘RESULT IN TIMEOUTS ARE STORED. 
sREREREEREE REE ERRERERER REE EE EEE REESE AEE AREAL EEA EEDEEEREEE EEE ELE 
12670 01 TRPVEC: MOV #300,R ;START AT BEG. OF FLOATING VECTORS 
Peg Bisons patade NOV tbe, Rd 
l 12703 000004 MOV ams Rg CONTAINS IOT TRAP INST. 
l 10221 1$: MOV Re, + ; START LORD! NG ADDRESSES 
| 10321 MOV Ra, (Rus *LOAD 
12710 ROD #4, Re ; ASSUME 4 REGISTERS PER INTERFACE 
12714 001000 CMP R Re ‘DO 
15539 1 BLT 1 : NO EONTINUE LOADING TRAPS 
le7ee 005037 000006 CLR a8 
l 01 Ole766 oocoo4 MOV #TPENT, a84 : SET UP TIME-OUT TRAP ADDRESS 
1 CLR ‘CLEAR THE TABLE POINTER 
l i705 001570 MOV SINTAB,RS *RS=DESTINATION TABLE 
Ole742 013702 001756 FADD: MOV STRTAB, Re : PUT THE ADDRESS TO BE TESTED IN R2 
Dle7Me 001760 TRPE: CHP END TAB, Re a HAVE EXCEEDED END OF TABLE ADDRESS? 
Biers ther fs dbondes Ne ON P Patera 
i so>h2 O00D10 Faopl: AOD | OMIOLRE $F AE Got THIS CAR THES 15 A DEVICE THERE-SAVE IT 
BiSseK riteas BR TRPE - GO seer 
012766 Oecbeb TPENT: POP2SP ‘RESTORE THE STACK AND TEST 
012770 000773 BR FADD 
012772 00501 TBLCK: CLR (RS) -SET UP T TERMINATOR OF ZEROS. 
012774 000200 RO 


RTS 
enemmenae rg a CT ee 
HIS ROUTINE WILL no THAT THE ae 
INTERRUPT WHEN XMIT INT. ENABLE BIT IS 
cenvunesiMlGe INTERRUPT WON HOUT INT. ENPGLE GIT. Ts Ser. 





ge deetrriniicl iiss Bisson -oheoustnaaanecaewstoRseael <p 





nee OOSO46 CDEV: CLR -(SP) ;CLEAR THE PSW,LSI11 STYLE. 
| Tee 12746 013006 wy #100$,-(SP) 
! 013006 012737 ETE: 000004 1008: MOV s INSTALL IOT TRAP INST. AT LOCATION 4. 
| Be HS aie Giles Oaies YRS SSTARNGS IT BND TB curr 
| Tee aie ' eat enact jINSURE At ALL 2 
Be tee a Es ta 
Be RES Glee ie SY RUT RIGS TI SES 
a ue 5 1762 CDEVA: MOV eVJCSR,R1 5V 61 DEVI 
| 13056 00571 TST ;CHECKED ALL DEVICES? 
| Bi30e2 100803 esis iTS Re Aooress IS IN PROPER RANGE(17XXXxX) 
130% apo coe 1A LOOK FoR EaOTHER. NOT GOOD -PURGE 
: L - Hoy £1200 81 cr ity USE R Ri ° MOS Fal TLeAFE COUNTER 
| 1311 BIs—«XSCN, ANCOR ;ENRELE THE Xin} MI TTER SCANNER. 
| 013116 BIS = #XENA, aVJCSR Boe 
013124 DEC Ri bevice™ DOES. NOT _ INTERRUPT WITHIN 
: 013126 BNE “2 APPROX. IT IS NOT @ DJ11. 
| 





FOS 
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11 END OF PASS ROUTINE 





Ale ere ome ieee fi Ee ice 
BL 148 165614 a, Strait “CLEAR XMIT aki se acne. 

se bes os BY tessa, inte JT aon There Ge 
BL S166 piEs33 TST (Ro)+ Bop THE OLD PSW AND DISCARD 


O2ebe6 POP2SP :POP THE AOD. "AND PSW PRIOR TO INTERRUPT. 
some NG YY EO ae 


tA'DRTA PATTERN WILL. BE RUN ON ALL ENTRIES IN INTAS 


1 cLR -CLEAR THE PSW,LSI11 STYLE. 
NOV . #1008, -(SP) 
317 100$: MOV (R3)+ +3 THE RECEIVE VECTOR ADDRESS 
176 MOV SRECAD. tri) 
MOV #340. (R1)+ T RECEIVE TO 7. 
MOV STSMAD, (R1)+ ORE THE XMI VECTOR ADDRESS 
MOV #340 (RI) T XMIT TO 7 
MOV 8] TSTLNE T UP TO TEST LINE O FIRST. 


LNECK: MOV SBI TO TPREG wees I TA PATTERN OF 1. 
CLR Bern: “SET UP PaILSAFE DELA 


mp Re BET te 






l 
a MOV TSTLNE, AVXTCR LOG THE LINE TO BE CHECKED. 
052777 BIS SCAN, IC XMIT CIEVE SCANNERS. 
BI sTCOMe. SWaCER COATT INT MAINT 
10797 is:  fstB  TPREG Bese RN RMITTED: 
14 BEQ GDAD iE GO STORE Hrs” ADDRESS 
605301 C Rl °CY TINE 
1 1 : NO YET TIME NeouT KEEP CYCLING. 
C #XENA,AVICSR  ;CLEAR I T ENABLES ON BAD UNITS. 
C  #RENA, aVICSR 
T HDFLG’ ;ADORESSES I ? 
25 : YES-I LINES. 


DLERR ‘ISSUE OJ11 FAILURE MESSAGE. 
VICSR, ~(SP) 339R VICSR FOR TYPEOUT 





re 


323 


~ 
dege 
-— 
<< 
4 
mr 


~ 


;CONVERT BINARY LINE TO OCTAL LINE. 
MOVE OCTAL LINE 8 INTO POSITION. 


tt ten 
LNE,-(SP) - ire So TYPEOUT 


6 
l 
? TYPE SCRL 
10 2S: ISR 8B CONVLN 
OC 
OCT 


| = | 
oo 
; 
= 
33 
= 
© 
< 


Sos ERY SSSI 
> 4 
‘ 


P— b= FF HH he Ga2 BR 0 Paw fh BB Gb 2 & = &-* &-< BP — > = B © H-< H+ FH —= = F< t = F-2 H-2 B— & — B— b—~ Peo p= Fh -—3 § — 2 B—> HB OH = 


104402 PO 13g, TWPE--Ocr ree 
me: *BYT +O IPPRESS NG ZEROS 
020072 INC _-HOFLG 
o00s02 BR BORD .GO TRY ANOTHER LINE OR ADDRESS. 
013724 001774 GDAD: MOV STLNE,(R4)+  :STORE THE GOOD LINE 
3406 006327 001774 BDAD: ASL = TSTLNE SSET UP TO CHECK NEXT LINE. 





| 
i 





A A AA — A A TT 


-_ —- 


GOS 
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D2VTJ.P11 END OF PASS ROU 
013412 1306 SNE LNECK -IF NOT ZERO-GO CHECK IT. 
1414 Ol 77777 MOV 8-1. (R4)+ STORE ye LINE SEPARATOR. 
1762 VICSR, (RS)+ :ST OJ11 ADDRESS. 
90 te L . © TO TYPE AN : 
30 o} 166324 IC aSCAN,avICSR  :D REC. AND XMIT SCANNERS. 
900019 ib63ls BIS SMCLR.aVICSR § ;CLEAR SILO AND UARTS 


ee a ee ey dg 


Roy ae RESTORE LOcHTION NTO HALT CONDITION — 
SBV sen as roTvec’ Loor. 1 OE ORG OAD IOT a ertoe e SCOPE 


000006 
eybags 
pees o0a022 MOV 2340. patorvece 2 ; 
81000 


Senos NTOREESS 


DNWUIL WIT 


1S: MOV Re (R1)+ 
CLR AL) \+ ‘RESTORE HALTS TO ALL LOCATIONS CONTAINING IOTS 


34, Re 
CMP R1; #1000 ;10 LOCATION 1000 





1 
1 
i 
1 
| 
i 
i 
1 
1 


SHO 


o-- & - & <= b> P= H-—~ 6 = 0 <- & = §—< § -< & = BH -- 0 — B—= p> = B - P— 9 ~ & oH 


AN a aE 








BLO 1 
3019 RESET -CLEAR ALL FLAGS 
3921 : a 
ancs s FELLLLELELELLELLLFLELLLALLLLALELALALLLERELELELLELALLLLELEFLALERE 
s INITIALIZATION ROUTINE FOR AUTO SELECTION. THIS ROUTINE 
3024 WILL INSURE THAT ALL DJ11S IN DJTBL HAVE A VT61 CONNECTED 
2026 ITS WHICH EITHER DO NOT OR DO NOT RESPOND WILL BE PURGED. 
jheneecubessenaenseeseeneeheeneeeeeteHHeH Pee HEHEOHHEESEHIESEEEHE 
3027 913536 012702 001560 iNITA: MOV #OJTBL,R2 -R2 POINTS TO DJ11 ADDRESS TABLE 
1354e Ot 001630 MOV #DJLNE,R3 ; POINTER TO DJ11 INES. 
135 1 001762 11S: MOV aVICER, Ri “POINTER TO VT61 DJ11 
133e 000015 166202 BIS LR,aVICSR CLEAR SILO AND UARTS. 
3031 1 NOP ‘CLEAR PROPOGATION TIME 
3033 013562 005712 TST (R2) -SEE IF ALL CHECKED 
2034 13568 DO 14S BEQ INTXT : YES-EXIT 
1 014076 JSR - $NO-GO LOAD THE ADDRESSES 
3036 013572 022713 1 123: CMP -1, (R3) -AT A LINE TABLE TERMINATOR? 
3037 01 | BNE 13$ *NO-CONTINUE TESTING THIS ADDRESS. 
3038 1 TST (R3)+ ‘TT 1S-BUNP POINTER AND GET NEXT 
166154 CLR avVICSR is DOWN Dit _AETER SAMPLING COMPLETE. 
Sal OIG Oise pore = as: Hoy URS rerine LORD LYNE 3 Teste. 
is 01 3ee0 Blear? 16614 MO }+,aVXTCR § ; ENABLE fe TO SCANNED. 
13624 Ol 166130 BIS avVICSR ss E XMIT AND REC SCANNERS. 
ae aes 004037 016452 - RO, ZFLAG -ISSUE ESCZ AND LOOK FOR RESPONSE. 
3047 01 012637 002216 MOV (SP) +, CHRD ::POP STACK INTO CHRD 
1 100414 BNI TIMEOUT OCCURRED NO CHARACTER 
| 123727 002216 000140 C CHRD, #140 ‘CHECK IDENT FOR VT61 IDENTIFIERS 
13652 103410 BLO *NOT A VT61-SET UP TO PURGE ADDRESS 
13654 123727 002216 000172 CNPB CHRD, #172 IDENTS ARE L A THRU 2 
13662 101004 BHI S$ NOT A VT61-PURGE 
2053 013664 4§: 





* ee — a — Fe Oe ee ee a Oe ee ew ee Sl er ee es ee Oe 
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305" Tes 12637 02216 Moy (SP)+, CHRO s;POP STACK INTC CHRD 

4 

3058 Rises a 1 ;TEST ANOTHER ADDRESS 

a s 

oy 74 Oe 002216 Hoy £$P)+, CHRO :sPOP STACK INTO CHRD 

ee. SUB ti‘éak~,«CRD ;RESET LINE POINTER. 

OE seat 900901 NOV ni =(eP) + PUR al #1 ON ON STACK 

06; 004037 014316 JSR —«- RO BBLUP ‘ 

308 0c en 12$ TRY ANOTHER DJ11 LINE. 

5965 waite ee ee, ae a ee VESHBEGIN TESTING. 

3067 Ce 177777 001632 cn #1 DILNES2 i SEE IF SECOND DJ HAS GOOD LINES 

065 OC 001632 Fer DILNE+2 : ZERO INAT GUND? 

Bt Blas TELE cosy our: Fipe GARY FARCRY Batt yg sence eS 
M400 : : 

07% } 020220 MOV  &3000.,DCOUNT ;SET DELAY To 30 SEC. 

2 "04037 Oe0lS6 JSR RO, DELA sAND DO IT. 

iC 06270 000004 wy } ae SET UP ’°NO VT61 FOUND’ EXIT 

076 012702 o01560 EXINT: MOV § #DJTBL, Re sLOAD AND ISSUE GOOD ADDRESSES 

ua "0S Br (Re) ; INS A ADDRESS. 

307 


1S: 
012246 MOV (R2)+,-(SP) 33 SAVE (R2)+ FOR TYPEOUT 


-*GO TYPE--OCTAL ASCII 
b 35 TYPE & DIGIT(S) 
TYPE LEADING ZEROS 


i : MOV tars TSTLNE ;LOAD A LINE | TO PRINT 
177777 001774 CMP 8-1, TSTLNE -TF LINE IS A TERMINATOR, DO NOT 
: DISPLAY UP NEXT DJ11. 


RO, CONVLN ; CONVER , 
001776 SWAB = OCTLNE ; 
001776 MOV OCTLNE, -(SP) 3s 30NE ger FOR _TYPEOUT 


ace Ete ceo 


-NO-TYPE ANOTHER LINE. 


SHE 


Sree 


7 


gi 
w 
~< 
“~ 
rm 


8 
— 
'_ . —f 
a 
< 
m 


ue 
356 
— 
3S 
te 
ont 


seal 


: 
=: 
— 
on 
“a 
a 
rune 
eet 
é 


OF GOOD UNITS? 


TYPE 

TST sAT END 

BNE 1§ ;NO PRINT ANOTHER ADDRESS. 
RTS RO 


ET EET IBROUTINE TO LOAD 4 ADDRESSES FROM THE LOCATION AT (Re 


; SUBROUTINE TO SO ONTED MOORES aF Ce ON AT (R2). 
;10 A LOCATION POINTED Y Ri. EXITS 
sevevund Oat foeat ION POINTED TO BY RL. EXTTS MTTH 2 INC. by 2 


bh Ho H— F—a b-< h- = Hoe a oe a ee oe ee oe o— >= & — bb ~ § — B— &— B— b— F< B= §—— H+ B= H- b= & -— & — P= & = B+ PB -<« H-< B— 6 ~ oH 
R 


ssceceng Qaeauieae 220638 
ap 


OOOO0O0O00O OOOOOOOO0OOoO oOo0O0O 


+ & +d + b= ~~ 6 = O-- <b fh -- 


DOVRR LON 


WIIUWWWGIGL 


I05 
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DZVT 
110 
1] 14076 12241 LDADD: MOV (R2)4, (RI) ; LOAD THE ADDRESS 
Hg Gisiee Rett gongs ata? Hnc ee eons 
114 18165 BEY CP , #VXBUF 4? 
115 O1411 BLT *NO LOAD ANOTHER 
116 14114 RTS RO : YES-EXIT 
] 8 eee eR OUTING TO RECEIVE CHARACTER(S), ENTERED WITH 
2 NBRAGTERS 70. & EET WE VE. ONT T ree 
3 te 7 WITH CaRACTERCS) ON. ray ON ae,: Ak. 
j BEFORE A CHARACTER 
l 18 Re VED ROUT! Bi uth =1, -1 ON STACK. FORMAT 
1 OR Bato i (BYTEe, BYTEL) A WORD OF ZEROS TERMINATES 
1 ;DATA STRING. ON Sion IF SENT, ARE RECEIVED 
“BUT NOT ToRED. 
: : EPEEELEEFRE FERRE E ESET R EES RR ERE REREEE EERE PES EREEEFREAEF EES EEHE 
i Bist 1 RECT: oy (SP04. ROS POP STACK INTO ROSVE 
1 141 O13? poses (8p}3° SeBUBCT : : POP STACK NTO J#BUBCT 
i Brat o0037 & 1$ eR ERO’ qty: CHARAC STORAGE LOCATION 
| size nthe Bosca LR ie SEF Op FAIL BELAY ; 
HE aisles rate 000200 165612 3$ El BRECON, BVICSR “SEE IF DONE FLAG SET 
i Bat 002254 OLAY sDECRETENT FAILSAFE CNTR. 
3139 014153 00137 BNE 3$ T ZERO-CONTINUE WAITING. 
140 ii 177777 002216 31S HOV FS one Pat. FOR FAILSAFE EXIT. 
1S GUD plore WAR cere SD Re Le 
| iw 1 os 1 2 bai 21 CMPB 1, CHRD+1 ; Recel CORRECT LINE? 
| aie pt ist se 00057 C2216 BABB iS CHRD sNO-JGNORET HOENT SL ASH(S7)? 
| 3i4 O14 I aie BNE 41§ 7 iNO-STORE A CHARACTER. ; 
| «8 Biss abives eS ‘COUNT EQUAL ZeRO-SET OP ERROR EXIT. 
ta RE 1237e7 O02e24S 000213 1 T+1, #139. 3 2 FIRST SLASH? 
| aie ois 128 oo0002 o02216 4S: ace cS , CHRD i CHAR ACTUALLY SOM? 
| 3NO 
/ 31 14 002244 ince T : YE T UP TO RECEIVE EOM ALSO 
HE SS ee eae ee 3 SALAE TSR 
) a1 14 y BEQ RECEKA . 3 S- T PUSH IT ON STACK 
| oy 14 1 002244 CB  BUBCT CREMENT CHARACTER COUNT. 
' 3159 014274 001403 BEQ RECEX sCOUNT =O. EXIT We DONE . 
7 a 14 002216 MOV HRD, -(SP) 
of 2 14 1 a8 SiO RE READ AGAIN. 
3165 014304 RECEX: 
: 164 14308 013746 o02216 MOV CHRD, -(SP) ::PUSH CHRD ON STACK 
3165 014310 RECEXA: 








JOS 
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ee TE eho oF pncs Mufiic 
4310 Od2256 MUY ROSVE,-(SP) -sPUSH ROSVE ON STACK 
BHuaig  BhaoS Re OD : 


jonennnenpngeenrensescnrennprenseqenayenmeorereapecensnaoaaanans 
3 INES NATE eae oa POTIE (hORE were 


aera a Fi ete tack RUBY ALSO 


BE LOADED With THE NUMBER OF POSITIONS TO BUBBLE 


EE 


KOS 
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i 
ey fo 


158 
1 
1 6 
os l 1$: 
] 
ot 
1 002255 


¢ EEARELASFALEFLLEFSLALELEFLLEL LALA LELELLLALELERAELALELLAIESLELF FESS 


aa 
(SP )+ tee + Bus STACK INTO TODD 
Gratis te BSP ee 








HRD FOR STORAGE 
T aU i ‘He BUBB COUNT. 

bs Pe Start toe SH honmn, 

;;POP STACK INTO RY 


(SP)+, RY 
“ ROSVE,~(SP) PUSH ROSVE ON STACK 
RTS RO : YES-EXIT 


22 momeceeees 


DBD BE MeRey mE 0 31) 


0 + -* & = 0 -< & = &-- 9 = B+ B-+ 9 -— &-< 8 B + -<-& 29 + B— p-<~ H - 
o-- 





92 
a3 
oe Eee ee THIG ROUTINE OUTPUTS THE EGC SEQNENCE FOUND ON 
95 ROUTINE OUTPUTS THE ESC SEQNENCE F 
ae THE STACK. fl WORD OF ZEROS MUST TERMINATE THE SEQUENCE. 
se HHH HHEHEHHHHHHE HEHE HHHS dH gHSHHHBSHHHHHHHHBHHEE 
BY Bi4a9D Ol ee ee eae -POP STACK INTO ROSVE 
14374 if MOV RY auaer : dave 
ide 0 bocgng 165362 4, = OVE. SUN GVNBUF = SEND A START OF HESSA  ToCATION. 
faate 1 MOV (Re3+ RY | ice STRAND 
14414 00141 BQ 203 {IF ZERO TERMINATOR FOUND-EXIT. 
wae 1 MO RY, RS {10RD CHECK 
wien i 2: 5 RY SEHECK BYTE FORA ZERO, 
144 ¢ 20s STF ZERO*DO NOT XMIT IT. 
6 O44 100000 165330 STROY, AVICSR 
144 1774 Banh ook ‘WAIT FOR XMIT READY BIT 
12 014434 110477 165320 MOVE RY, OVXBUF 'XMMIT @ BYTE. 
13 O14 208: : RY 'GET THE OTHER 
14 1 i RY, RS tTF GOOD OTHER 8 WE HAVE CHECKED BOTH 
aes 14s 001760 BQ «IS ;BYTES $0 POP ANOTHER WORD. 
16 O14e O007e4 BR té«S '60 XMIT ANOTHER BYTE 
3512 144 100000 165304 3%: BIT  STROY,aVJCSR SEE IF READY SET 
1g 014486 601774 Bo ti«i*#‘S 
321 O14460 012777 OO0004 165302 MOV #EOM, VXBUF ——-; SEND A EOM. 


—_-— +. mm meme mm mw mm mmr ee CE Se ee ee EE Es oe a ee 


~~ EE a SP a i ee 
; 
; 
’ 
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OZVTJ.Pil 


ie oe 


14476 






: 


ip 
“3 


B-= &- > b= &-= p—= 9 > p-—- Bs 


sous 


Pe 

3 
| 
$539 
see 
Pe 
ee 
sees 


AS 
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1 
1 
1 
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i 
1 
1 
1 
1 
i 
1 
1 
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100000 


O02244 
O02eS6 


002232 
002234 
025741 
012154 


002234 
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TINE 


165266 


164420 


002236 


164330 


165114 


002230 


014726 
014726 
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bed 


roy ROSVE, USP) 


STROY, dVICSR 
ser 


;SEE IF READY SET 


sRESTORE RY. 
;sPUSH ROSVE ON STACK 


5 LERRESEESEEEA EERE REE LE REL ALLELE LEEEA EEE EERE LEE EEE ALLEELARL ERASE 
THE CONSOLE. 


CONRD: 


Py TO READ 


A CHARACTER FROM 
CHARACTER ON THE STACK. 
HEHEHE HEE HHS E Haas de 


MOV (SP)+, ROSVE TACK k INTO ROS 
BIT #RECON, aSTKS IT 

BEQ =e iy FOR IT 

MOVE § aSTKB,-(R6) *PUSH CHARACTER TO STACK 
BIC (RE :STRIP ANY PARITY SIT. 


RTS 


ROSVE,, ~(SP) - PUSH ROSVE ON 


STACK 


angerrer Tat 7 a Co eee: 


me 


See 


‘SHEED FOR! ROSECRNTPR Hrs un 


ponnenebubosnecsesacensdeseunscunossnsncneucnenseuceennconncnes 


MONIT: 


MODE sTEST MODE SWITCH 
1$ * MANUAL 
FTLCNT,ALWCNT COMPARE FATAL XMITS WITH ALLOWED. 
100 *FATALS LESS THAN ALLOWED-CONT INUE. 
DABRT -ISSUE ABORT MESSA | 
: CLEAR INTERFACE FLAGS. 
SETA -SET UP TO RESTART TEST. 
RO : AUTO 
(R6)+ <POP THE STACK 
“POP SCOPE RETURN AND VECTOR 
FTLCNT 300 NOT INC. FATAL COUNT IN MANUAL MODE 
SRECDN,STKS ss; 
$3 Ri :STORE INPUT BUFFER 
a Baas Casey 6 
nT Hen 
TSTPTR,RI ; HE NEXT TEST # 
NA, IVICSR iAP EAR RB REC ONTERRUPTS SEF ORE NEXT UNIT SELECT. 
: END OF LIST-G0 SET UP NEXT T 61 
tlyrag, TSTPTR i VES-RECET TE T POINTER 
10s ae GET FIRS! TEST SELECTED 
RI Est 0 FORM ADDRESS OFFSET 
TSTADD(R1) onakt +2 LOAD NEW 
#2, JNPADD+2 BYPASS inITIAN SCOPE LOOP 


TSTPTR 


SINCREMENT TEST OPINTER 


a —_—— oer © ee awe ore ee ee ee mrt a eR et 





Fe Sees ee nae ERTS VCE 


SS 


OOOOoOOOOOO0000O0 


b= b-+0-* 6 ——b -= 6+ 0-2 b- 4 H-= f= B - Fh 


: 


OVO OOOOOOO0O00000 


B > o—2 b> p= Os + pH 


wow 
p*. 


SSERRnERaS 


? 
3 


bt EN 
DZVTJ.Pil 


END OF PASS 
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Severe 
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CR PS :SET NON-INT.. PRIORITY 10. ZERO 

R  =(SP) ;CLEAR THE PSW,LSI11 STYLE. 

MoV aJMPADD, -( SP) 

RTL 
SELECTED TES’ 


ADD: J EXIT TO NEXT 
HHH HHH HEHE HEHE HEEHEE HEE HEHEG HEH OH HEHUHEEHHEE EEE 
UHBHGGHEHHEHEB HEHEHE HEHHE HEHEHE HEHEHE OO HE EEE 
FA et Base ae ARE INTERRUPT OR 


rei ritittittiititittt tt etitttiitiititti titi tttitiititiitt sy 


i peeneneesenssnnseoneassnnsnnssensensznnssenssnessensesaceesense 


RECAD: MOVB CHRD ;GET T 
BIC CHRD AR 
CMPB ss TPREG, CHRD ; COMPARE RECEIVED TO XMITTED 
BEQ UPDATE PATTERN IF OK. 
TOFF: BIC STCOMB, JVICSR {DATA ERROR OCCURED OR WE ARE DONE 
. ah ,avIC sEITHER WAY-EXIT. 
tite BI SXENA, BVICSR - ENABLE xT T INT. oy 
RTT” 881707, TPREG sUEDRTE Oe tO PARITY BIT? 
at RPnEG sNO-CONT UP COMPLETE FLAG 
he TOF ‘ANB Pr, 
TSMAD: MOVB  TPREG,SVXBUF § ;XMIT DATA 
SXENA,aVICSR § ;:CLEAR XMIT INT. UNTIL LAST BIT REC. 


s KELLLLEALLLLL LLL LLL LEAL LLL ELLLELLLLLLELE LE LLFL ELA LLELLLELELALELE 


ome 
NOV Rl, =(SP) 
MOV SiAGLF, a! 
are a y0577 R2 
es sf NE, Re 
BEQ 
BIS SICLNE, VSTAT 
BR ERLNE 

13$: BIC #207 RL 
BIT #TXSUM, VSTAT 

Q 11$ 

MOV R1,RS 


its oe ROUTINE. 


Ph 


ROUTINE WILL TRAP ALL ALL ESC 
SET FLAGS IN VSTAT FOR SOM 
UNCT IONS(SEE VSTAT FABLE REFIN tTION). 
BE TED. TION 
xg 1S 580 ht NICRO 


MUM EXECU 
‘iy ° 
Ta 


SECONDS. 
CLEARED. AMO XRIY INT. EN 


DOR ESC asce fe BiT 
Or "SET MEANS AN ESCP 


ON S rae 


;;PUSH Rl on ; 
eTORA TORAGE OF STATUS AND CH. 


tice Ri FOR 
a Rl 
TP LINE CHECK LOCATION. 

ConPane GAR LINE 1B Fie UNDER TEST. 
:NO-SET ILLEGAL LINE FLAG AND EXIT. 


;sSTRIP PARITY BIT. 
; CHECKSUM CALCULATION REQUESTED? 


+ YES-STORE CHAR. AND 


- LS SS Se ee 





x 
k 
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k 
Sui 
x 
fe 


fiat atata ke 


Ba 


A 


SRRSRRE SSSI SINISE RRR NT ERTS 
O000O OO000O OOOOCOOOO0000O0 
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= b-bd oe - p 
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ws 
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SHE RBRESORD 
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yee 
Ree 


e— b= 


y 


——- e- 
ul 
££ 
Tw 
Tw 


S426 





MACY11 


e/ (722) 
PASS ROUTINE 


002260 
BA3208 


002260 
015756 


015760 
002260 


CO2e60 


NOS 
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118: 


12$: 


1$: 


31S: 


6S: 


61S: 


7$: 


70S: 


— a ee = 2S eS a 


wo wows 


et 
o- 


pt etre 


gee 
wn 


oe pe deel esl ep) 
oslanih 
o<w 0 


ag 


WMO 
ame 


ns 


Bows 


— 


ALCK : T CHECKSUM. 

p HINCRERINT The RAld DATA POINTER 

P, AARBUF #50. THE END OF BUFFER? 

ABUFP saan IT 
Ri , @ReUFP pm THE RAW DATA 
6 “IF CHAR. IS NULL-GO STORE IT 
#81T00+B81701+81T03, ESAMB -ESC OR ESC 0? 
ASESC s YES-KEE ASSEMBLING 
R1,ESCN BY ESCN? 
6 :NO-PROBABLY A DISPLAY CH.-STORE IT. 
1$ *NO=DECODE FOR XON XOFE SOM, EOM 
#1, ESAMB iY SET ESC AS 
HESCVSTAT RECEIVED CAG 
Rl, #XOFF ise IF RECEIVED BYTE WAS XOFF 
aRXOFF, VSTAT ES. SET XOFF IN STATUS REG. 
R1, #XON ; SEE IF BYTE WAS XON 
#RXOFF , VSTAT YES CLEAR XOFF IN VSTAT. 
#XMKIL;VSTAT | ;CHECK XMIT KILL BIT. 
RSTER “NOT SET 
#XENA,OVICSR § :SET XMIT INT. ENABLE. 
axnkIC, VSTAT ict oR THE nit KILLED FLAG 
-SEE IF BYTE WAS SOM 
#RSOM, VSTAT “YES, SET SOM IN VSTAT. 
RSTER EXIT 
R1, #E0M sas BYTE EOM? 
#REOM, VSTAT “NOW SET EOM IN VSTAT. 
RBBUF ; RBUFP *RESET THE BUFFER POINTER. 
aTxSuh, VSTAT ; CLEAR CHECKSUM REQUEST BIT. 
ARRT,R1 CHAR. 
SUE THR ri 

LNFED,R1 CHAR = = LINE 
6S :NO- GO ST ORE I 
#EPL, VSTAT “SET END OF Erie INDICATOR 
RSTER 
RBUFP, REBUF 18 CIRCULAR BUFFER FILLED? 
RBBUF , RBUFP -YES, RESET POINTER TO BEGINNING 
aCONGP, VSTAT ;RECEIVING GRAPHICS CHAR. ? 
#137,R1 : YES-SUBTRACT 137 FROM RECEIVED CHAR. 
#REVID, VSTAT ; REVERSE VIDEO MODE? 
? STORE RECEIVED BYTE. 
#200, R1 VES -FORCE BIT7 AS REV. VIDEO IND. 
R1, JRBUFP :STORE BYTE AND 


-— <—eemes ee > SP 8 =e ER - —as <== — eee Se OS Ee ee ES ee we 


o-= -_ ~~. Sere arm © FF _———Z — + - 


BsNDEC- 
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oe ae SS 


015432 
hae 
S442 
Tet 
ie4ED 
HE 
1S466 


S474 
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PRB SE RRS To 
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CE enw lc ee 


oar” 


“ENO oF PASS 
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035760 
070080 
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RSTER: 


ERLNE : 


FECAT: 


ASESC: 


105: 


1$: 


aery 


BR: 2c0 
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ee 
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RSUFP 
i 
REC 
sett YVSTAT 
TEP, 8-! 
Re i 
Rl, aSTTEeP 
82,STTEP 
(SP)+, Re 
(SP)+, R} 
sc ESAMS 
RESCP 
s81T03,ESAMe 
#120,R1 
SBITO1,Eo 3 


rr, Ri 


sFEVIO, » VSTAT 


DEMP, Rl 


*BYTESESC 0 
:YES-SET REVERSE VIDEO MODE IN VSTAT. 


Ss INCREMENT POINTER. 


;CHECK FOR STATUS ERROR 
:NO, EXIT ROUTINE 


;SET STATUS ERROR ite IN \STAT 
315 ee TABLE FUL 
NES. ExIT ROUT Ne 

STORE STATUS EPR. AND CHECK 
SONSREMENT STATUS ERR. POINTER 


it BOe STACK INTO Fe 
yin! STACK INTO Fl 


x 
 ESCEMBLING ESC P? 
- YES- GO GET LAST CH, 
sASSEMBLING ESC 0? 
CE. gp? 
= NO KEEP CHECKING 
sYES~BETESCP ASSEMBLY FLAG 


;CHAR.IS AN ESC ? ? 
; YES-FRKE AN ESC C. 
;CHAR = 0? 


;NO 
;YES SET ESC 0 ASSEMBLY FLAG 
sBYTES CURSOR POSITION? 

; YES-SET RECEIVED CURSOR POSITION. 


sSYTESTERMINAL ID ESC? 
sNO-CHECK FOR GRAPHICS SEQUENCE. 
;YES-SET TERM. IDENT FLAG IN vSTAT 





RECEIVED GRAPHICS CHAR. SEQUENCE? 
:YES-SET GRAPHICS DATA FLAG. 


— RESET GRAPHICS SEQ.? 


;YES-SET NORMAL CHAR. RECEIVE. 
CLEAR re FLAG. 


;STORE ANY UNCHECKED FOR ESC. P 


“REV. VIDEO- ? 


;BYTE=ESC 0 DISABLE REV. VIDEO MODE? 





nn en lUOl— EEE ee 
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ateainitatatatet tte behb tal gh 5 bbb eh tbh teh al tte SEEKER PELEEEP LES REL ES 
ERRUP ROUTINE. F XOFF BIT IS SET 
TN vstar rit int eh WILL NOT OCCUR AND THIS ROUTINE 
sWILL RESET AFTER ISSION 
3 OF HE C 1s TANTERRUPT CYCLE, 
+E x tT DOR BIT W ete TH ke SET heostar AND XMIT 
NT BIT WILL TRANSAT 1 COUNT (XMENT) MUST BE 


SIN 
3 iy 
IE ogation BLKN 15 se TE if Som ul b ERECEED THE 


O2VTJ.P11 END OF PASS ROUTINE . 
015710 001004 | BNE 25 -NO A 
187 =3> oo0040 002260 BIC BREVID,VSTAT — ;YES-CLEAR REVERSE VIDEO NODE IN VSTAT. 
l 000171 23: CMPB 4s SCPABRT,R1 ;COPIER ABORT? 
l BEQ 3$ -YES-SET ABORT FLAG IN VSTAT 
000172 CHES aPRABRT RL :PRINTER ABORT? 
—-p10000 002260 38: BIS aPABRT, ,VSTAT sYES-SET THE ABORT FLAG. 
eee 016010 ug: MOVB  RI.STRO 3NO EXIT ESCAPE 0 COMMAND 
l 37 2R cESAM 
015754 REBUF: .WORD sADDRESS OF STAT OF BUFFER 
015756 RESUF: .WORD ; ADDRESS OF END OF BUFFER. 
15760 RBUFP: .WORD *READ BUFFER POINTER. 
l ESAMB: .WORD 0 SESCAPE SEG. ASSEMBLY AREA 
1 STTER 
Bere - 
1 0 
a | 
l 9 
01 D 
01 0 
O01 0 
| 516002 0 
016004 “WORD =] “STATUS REGISTER DELIMITER. 
| 016006 STTEP: <WORD STATUS ERROR POINTER. 
: 16019 STRO: .WORD O “ESCAPE 0 STORAGE 
. 01601 STRP: _:WORD “ESCAPE P STORAGE 
Bs. 


wg ry un Fe a 


EEE TUeE EET i or CREPEPRERRU LT ge ree rec cea EEE gE 





: INCLUDING ) tL 

' jresuaselaeeslanesanerssnsssnenenseeais a Le 
016014 005737 O02260 tNTXM VSTAT NITTED XOFF? 

: Bless | peers? 000200 002260 S - @XMKIL. VSTAT Ponte IT IN VSTAT 

| 16050 630510 : a KILL XM Pa 

| 016032 105737 002263 . NOKIL: 1STB  BLKMA1 ;SOM/EOM TRANSHIT? 

| 01 1 163722 MO 8SOM, IVXBUF ART OF MESSAGE. 

| Hes 1 Boees cL BLKM$1 Es. Arete SON FLAG 

016054 ie 016270 NOSOM fot XMCNT sXMITTED THE BUFFER? 

) 016060 001006 <NO=XMIT A NORMAL CHAR. 


' 


<P 


EO Oe om EL LL TE SK TT TS ei, 


—— se 


-- ——_—_ —e ee ee Oe me —<ef& 


Se 
oe 


Sa URE EROS 


DWN UL Wu 


2) 26 -— > 29 <9 -—8 © 


RRRRARR RR 


HUM MSS aaa oee SOR SRRE LR MORN EN 


&->-st =H 2 


PEK KKKS COOOrrrrrwc 
eT ad ed ed ee ee ee ee eer 





: 
: 
: 


= ] ONOOOOI0OOO OB000000000 200000 
b-2 doe 2 21-2 <b = HG = bh = He O-- 6 > + &  & © pH -2 p= Hse 6 + 0-=— o— 9 «p= 
or 


a 


| 


1-DZVTI-A 
END OF PASS 


pict 


8 
e- 
| ee) 
Bat 
+ 


009164 
021652 
016266 
Ol6ebe 
016266 


nes ROUTINE 
ete. 163700 


eS-SEP-76 
MY 
CLR 
BR 
100$: nee 
aA; 
ane 
BNE 
MOV 
BR 
10$: at 
1S: BIT 
BEQ 
MOVB 
JSR 
ees: MOVB 
CMP 
BNE 
Mov 
BR 
118: INC 
les: DEC 
BEG 
ait 
2s: TSTB 
BNE 
BIS 
BIC 
MOV 
KIENA: BIC 
TXEX: RTI 
TBBUF:  .WORD 
TEBUF : 
TBUFP: 


5B 
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otal 


p 
sXENA, JVICSR 





;YES SEND EOM AND EXIT 


ZERO. IF SC DO NOT XMIT 
ARE WE 


BR CO FOR CH.= 
ois AL Sires OR 


eats rT eyre 


i VES-RESET BUFFER POINTER 


;LOOK FOR NON-ZERO BYTE TO TRANSMIT. 
; CHECKSUM REQUESTED? 


SAR’ CALCULATE. THE NEW CHECKSUM. 


; TRANSMIT A CHARACTER 
;AT END OF CIRCULAR BUFFER? 


= NO 
sYES RESET IT TO START. 
BY-PASS INCREMENT BUFF. POINTER 
: INCRE BUFFER POINTER. 
sDECREMENT ‘THE TRANSMIT COUNT 


; YES, CLEANUP, REQUEST ERRORS ae EXIT. 
:NO. CONTI 


:SOR/EON XN 
sYEE-PO NOT T_XMONE UNTIL EOM SENT. 
HE BIT IN VSTAT. 
; CLEAR THE CHECKSUM FLAG 
SET 2 POINTER. 
CLEAR XMIT o INT ® ENABLE 


;CONTAINS INITIAL ADDRESS 
;CONTAIN LAST ADDRESS 
;CONTAINS CURRENT LOCATION 


XMCNT: . 0 ;sLOADED WITH NUMBER OF XMITS. 
eeSSEAEELESSONENESOSUAEAUOEEAESEESSERESAISEGEEESTSOREESESES TIONS 


3 SR OUTS TO ISSUE RESET TO THE VT61, ENTERS MAINTENANCE MODE 
, auneneabsrvesesSEPeGSsTECeeseSECESaSieseneeseeneussunueseasaees 


RESETV: MOVB 


=——— a ee ee eee eae 


Ue “t38) 


es 


TESC 


RO; GETON 
1$ 


pec ee IN ERROR PRINT AREA. 


ON STACK 


z; 


ao 


“wOr> 
oH § 
we I 


Ub Ve Id MRM ERMUR aS as as Wi: 


a 
8B 


SSR oRRe ERE 


a 
—y 


~~ re me Ee Fe ee ee a a ae a ee 





Sanona ote 


0-6 ~ > 6 ~ & ~ & =< & = B= & ~ & -= = & = be 


o” 
ys 
8 


OQOOIO0O0O00000O 
e~b = 0 = &-o b-< § 2 B- > H— H-5 Fee : 


Bisene 


SPRAIN 


e— = B+ BR - O-2 & 4b 2G -- & +GH-0 


ONOOoOO000000 


-11-D2VTJ-A 


oor-o 
he BH 


E06 


mee i Tae 7(732)} e@S-SEP-76 09:05 PAGE 69 
QUTINE 


INC FTLCNT sADD 1 TO FATAL XMIT COUNT. 
MOV RQ, SGDADR "NO XON ISSUE XON ERROR 
* ERROR 
MOV -(SP) . G K 
MOV gERY ik, -(SP) Hits BEEN ON sore 
tice, ble RE OS, 
- HY B50, ) Hatt Pees ON sfack 
CLR VSTAT sCLEAR INT. FLAGS AFTER TERMINAL RESET 
CLR HOFLG ‘CLEAR PRINT HEADER FLAG. 


s LELTELLELELLELELLLELSLELLELELALELLLLELELELELELELLLLLALELEALELEE 


NE TO WAIT FOR AN XON. NO XON EXiT IS PC ¢e. 
, aneeesehseeeeSEESSeHSSeEShEEESOSESSESOSESOSESISEESSSERGSSTIOHE 


GETON: MOV #300. ,BUBCT ;SET UP TO LOOK FOR 3 SEC. 


1$: CMPB 8 @ABUFP, 8XON ;RECEIVED A XON? 
Q corn ; YES 


V #1, T *NO-DELAY 10 M.S. 
JSR RD Y 
DEC BUBC sAT END OF DELAY? 
ADD #2,RO0 :YES-SET UP ERROR EXIT. 
GOTON: RTS RO 


s LEELLLLELELELLLSLLLLLFLELLLFLLLALELELLLELELLLERALALEREELALELELEE 


+ page he TO ISSUE ESCZ AND LOOK FOR A RESPONSE-EITHER 
A -1 OR THE RETURNED IDENT. THE -1 INDICATES ii 


RESPONSE FROM T 
irtiiiiiittititiititiiiiiittiitittititiiitietiriiiiitit rere cs, 


ZFLAG: 
MOV (SP)+, ROSV1 :sPOP STACK ee ROSV1 


Rov Saeez'-(8e) i #pusH SABC? On SracR 


JSR RO, TESC ; 60 ISSUE ESZ SP OUENCE 
MOV #1 -(SP) ::PUSH 81 ON STACK 
JSR - G0 Regn THe HARACTER 


ROSV1,~(SP) ::PUSH ROSVI ON STACK 
ROSV1: .WORD OQ 


seme er te ema 
+ CHECK SOFTWARE STATUS REGISTER (VSTAT) 
CE! omy. ST NTERED ur H ANTICIPATED 


a 
CKSFT: 


MOV (SP) +. ROSVE ::POP STACK INTO ROSVE 
MOV R1, SVERI -SAVE RI 








06 
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END OF PASS Ass ROUTINE 


12 oO16S22 010237 c02222 MOV R2,SVER2 :SAVE Re 

18526 012601 MOV (SP)+,R1 -POP STACK INTO RI 
16530 013702 002260 MOV VSTAT,Re bet T R2 EQUAL TO VSTAT 
16534 042702 003565 BIC #003566, R2 ‘CLEAR NON-ERROR BITS 
16540 102 CMP : COMPARE ANTICIPATED TO ACTUAL. 
16542 001432 BEO NBER” “NO UNUSAL BITS EXIT 

016544 010137 001124 MOV GDDAT sMOVE GOOD STATUS TO MESSAGE 
16550 013737 OO0e2e60 001126 MOV vetaT Sa0DAT _ =MOVE BAD STATUS TO MESSAGE 
16556 ERROR 3 - ISSUE ERROR MESSAGE. 


penaeenensoonpeaseecocoensynaserernnszveverssszenyeaecssoosees 
ROUTINE TO PRINT THE STATUS REGISTER IN 
US BITS ¢ RRED (000 X X) 


sexnennniZ RT SIRTUS, BITS, CO, O00) CHARACTER TRANSFERRED, ( 





16560 Ol 15764 MOV TTER,R1 : SET QUAL TO FIRST ENTRY 
biEeEs 1 if MOV STTEP, Re SET Re EouRt QUAL LAST ENTRY 

tEe7> pple es AR “RESET POINTERS AND EXIT. 
ste 016654 FER RO. CLREG Ge ir PRINT LOC. 

016600 013737 001762 001120 MOV VICSR, SGDADR 

016606 Ol 163150 001124 MOV aVICSR, SGDDAT ton CSR 

bieees 1154 ATES _ MOVE (Ri ds’ SEDADRSL ist 43 T TR ERROR REGISTERS. 
aS | ge, ion a E. 

16626 000760 BR 1$ 

016630 013701 o0e2220 NOER: MOV SVER1,R1 RESTORE RI AND 

16634 O} MOV SVER2 Re :Ro. 

16640 O01 15764 016006 MOV SSTTER,STTEP § :RESET STATUS ERROR POINTER. 
16646 01 002256 MOV ROSVE, -(SP) PUSH ROSVE ON STACK 

Oie6Se o0020c RTS RO EXIT 


HERE RERELEEREELEEREER EERE ER ERE REEL ELE EE ELLE EERE ERLE REL EEREE 
TINE T AR ERROR DATA OUTPUT LOCATIONS. NEEDED 

Y YING BYTES IN WORD LOCATIONS. 
BUTTE TTT e reer Teer eer ener tert er eer Ter ertteert Trt ttt tt Tet Tt 


RULE Uaseaee te att te eee 





yoatats 


16654 1120 CLREG: CLR 
Diceeo 005037 Oblise err 
016664 005037 001124 CLR SGODAT 
016670 005037 O011e6 R T 
0 000200 


RTS 

ees SUBROUTINE TD TRANGHIT TE BUFFER OHO MATT FOR AMT DON 
RECEIVE. FeSSA PilF Loca 

ai END. SOUBROUTINE 1 WILL LOOP IF LOCATION 

ert IS PRE Re te A a een HIGHER THANI(CIE. MULTIPLE 
RECEIVES CAN Narn EN NTRY TO a 

aN nt TOR R ARE THe (CURSOR POS.) AND BYTE 

ip LOCATIONS ,RESPECTIVELY.DEFAULT STORAGE IS THE REC. BUFFER. 

oe 0 0 0 4 EE A AE A EH HE A HH A a eH HH A aE AEE EEE HE HEHE HER ERE EE EEE 


oe | eS Oe mee om ee ae ee ee ee ee - os 





th ae 


END OF PRS 


+ hb— p> 
oo 


Sees 
ad Hos 


8 
ei 


ag sa5 Soe 


SIE REM MR Sea 





OOO OOOOOOVOOOV OOO OOO OOOOWOOOO9M00000 OOX000OO00000 


b= b= b= B+ 8 -- & + bs = Fb 2 bb <b — +--+ = FB b= & * b-- B=  —~ = = bo BP = D-H Op b = P= hs 


NINN NNN NNN NNN SS 
Ob bs 0 Be B= bs Oe 2 2 be 


Sense Uns on SSe IRS RSSS 
SFEGSLSPPSSTMRZNS 


OS 


a 
1 

7 

1 





=: 
be e-- 

Oo 

— 
eee 


5 eee 
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oo2262 
002260 


002260 


002260 
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XMREC: 


XMITT: 
1S: 


XMXT: R 
RECITT: . 
a : 
BYSTOR: 


RORQBZEURES 


S FR 


mwc> 
“TT 
—X) 


MOV 


L,BtKn 
oy -NSTAT 
i OR, Af 


bien, OV JceR 


SXMDNE , VSTAT 
OM, VSTAT 


CKSTR 
9 


DLAY 
es 
XMAD2 


, 
#REOM, VSTAT 
KSTR 


: CE stip FoR ash Q SOnVEON TRANSMIT. 


;CLEAR 
LOAD T 


Dea EPL ESC, REV.VIO., PARA. DELIM., IDENT, CUR. 


FLAGS BUT XOFF PND XMKIL. 


STORAGE POINTERS 


“Bonet Ost 


S-LOOK FOR RECEIVE DONE. 
+ aaahteee AN EOM? 


es. GO 


iNO- NO-STILE Y 


tain 


RT TANG, COR 0 VT61 FAILURE. 
3 £080 CH. RECEIVE LELAY 


RE Ge VE END 


ee a ROTHER CHARACTER? 


P LOOKING FOR EOM. 
ie + UP ERROR EXIT. 
1d OFATAL 

T ALL INTERRUPT POINTERS. 
SI POINTERS CLEARED? 
; YES DATA IN REC. BUFFER. 

A CURSOR POSITION? 

ORE E. 
YES, STORE IT. 


iSionine ITERATION COUNT. 


ETORE A ceiving. BYTE 
DONE RE 
;NO-LOOP SUBROUTINE 


;SEE IS 


XOFF IS UP. 


;;PUSH 860001 ON STACK 


POP 


tEXIT 
RE I 


: BYTE 


NTERRUPT POINTERS. 
ACK INTO RS 


VE ITERATION COUNT. 


POINTER 


TORAGE POINTER 


Tlalalabelabed-tyt-1-1-41+-+-$-gh-+-talabvivt-+-il-tet-teh-trt-+-tah-+-il-t-trt-+-talalalababababeleleleiahaialaiai 
TINE TO XMIT THE BYTE AT TBUFP. 


———————— ee a EEE a ee 


SO A A Te 
, 


06 





MAINOEC 1 -11-D2vTI-A MACY €7 (732) 25-SEP-76 09:05 PAGE 72 
END OF PASS ROUT! 
s RELEALAELESFAEASSFELASLELLARLALSEAAAALALAAALAESRELLELELAELE LAL LE 
171 XMIT1: BIC #1, VSTAT ‘CLEAR XMIT DONE FLAG 
171 V 3 -SET UP TO XMIT 1 BYTE 
121 . BIS #XENA, aVICSR 
7174 ; P -(SP) STACK 
y Bt + Mn vedt PUSH BION STACK 
a? 36 1 JSR RO, WTBGND aT eee 
1721 BR FILEXT HUNG, TRAN T-CLEAR FLAGS AND EXIT 
17e1 BR T ste | EXIT. 
738 i721" 002260 FTLEXT: CLR VSTAT -CLEAR ANY FLAGS 
1736 017 NORXT : RO “AND EXIT 


halciahaiahaiahal—ty?-1-3-'-$-$et-gh--tal-t-t-t1>-tah-tal-tr-+-Sh-+-Sh-eh-<-tot lab et-1-talal-tl---4 della 
INE TO ie A BYTE AT A TIME UNTIL A ZERO 
*BYTE IS ENCOUNTERED. 
Perrtriiiiiitiitiiiitititiitiitiitiiiitiitiittiiitiiitit titties 


o0503 000002 177036 LOXNIT: 1 a 8SOM, JTBUFP ;SEND THE START OF MESSAGE. 
e 


ae 
172 
1 177030 18: MOVG (R3)+,dTBUFP #§§ ;MOVE A BYTE TO XMIT BUFFER 
l 1403 BEQ LDOUT :IF A BYTE-EXIT 
1 017152 2S: JSR RO, XMIT1 -GO XMIT A BYTE 
1 BR 1$’ :XMIT AGAIN. 
S 01724 112777 p00004 177012 LDOUT: MOVB §§ #E0M, aTBUFP “SEND THE END OF MESSAGE. 
17e54 017152 JSR RO, XMIT1 
1 017260 oode0c RTS RO’ 
s LELLLELLLLLLLLLLELELELLLLLEFL ALLELE LLL ALLER SEFRALAELALLELARLELE 
‘“ *ROUTINE TO RESET ALL INTERRUPT POINTERS. 
es i... RHHGHEH HEHE HEHEHE HEHEHE HEHEHE HEHEHE HGH HH HEHE HE EHniet 
3757 Ol ih 162472 RESPTR: BIC #XENA, mene are sCLEAR I ERRUPT ENABLE 
3758 17270 15754 15760 MOV * RESET RCE IVE POINTER 
oe t i 15 e4 BIEDBE NOV Tee TEU eT EP gRESET | CEIVe: STATUS ERR POINTER 
ET pisses BOO? bibee CLR aSTTER, ATE BR T 
762 01721 005037 01 CLR ESAMB -CLEAR §SC RESENELY FLAGS 
01 12737 1 O17144 MOV $1. RECITT ieee C LTERATION C COUNT 
3764 017330 905037 017146 CLR WOSTOR AR STORAGE POINTE 
3765 017334 005037 017150 CLR BYSTOR 
3766 017340 000200 RTS RO 
ees 
3769 EE RN EROUTINE 10 ISGLE CURSOR POSITION ERROR GOOD 
771 *LINE/COLUMN MUST BE A WORD ON STACK. ERROR 
3774 2 3H HME EGE HHEHHHGHHEHE HEHEHE GHEE GHEE HEHE EEE 
1734 CURER: 
1 012637 002256 MOV (SP)+, ROSVE ;;POP STACK INTO ROSVE 
17346 012637 O02e216 MOV (SP)+’ CHRD -:POP STACK INTO CHRD 
3778 0173252 162737 OcO040 ooze16 SUB #20040, CHRD 3 EXTRACT MOD 40 FROM GOOD POSITION 
3779 017360 004037 016654 JSR RO, CLREG 


iggy 3 


if 
Ve] 
~ 


SE BUR SER Sad sea od 


EB eben eben op eco ED 
WDONWMU1£ GIT 


oiuie IN iA 


£ 


ide 
y 


ele le lel =) = ols) =) Sage 
= B— 6 -< & -* = = BH > & we O— 


Eee? 
KV 


ET 


© peeeeepee 
Z gouRneeey 


"| iii 
END OF PASS ROU 


Bok Ae 


002217 
Bossi 


1 
002216 
002256 


017545 
017545 
017544 


017544 
000157 


017545 
017545 
017544 


ida Te 


Fico? 


CO0067 


0° 7545 
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MU CHRD+1, SGDDAT 
NOV CHRD 1 SDROR 
SUB aepBNO’ CARE 
MOVS §§ CHRO+1. SBDDAT 
MOVB. CHRD, SBDADR 
ERROR 
MOV ROSVE, -(SP) 
RTS RO 





;LOAD MESSAGE WITH GOOD 
sLINE AND COLUMN 


sb 


ibINE BHO com FROM BAD POSITION. 
OAD MESSAGE WITH BAD 

sLINE AND C 

; ISSUE ERR 
;;PUSH ROSVE ON STACK 


s FLAFLELLLLALLELLLLLLLE LEELA LAALALELL ELLA KELL LELLLAEERAELELALLES 


{HHH HEHEHE HEHEHE HEEEEHHEEEEEHEEEHEEEEEEEEEEEEE IAEA 
INE TO DECREMENT CUSROR as he IN 


SEQUENCE. 


(TE. 


sROW 17, COL 157). 


LINEAR 20 C 
,aunneanktantneastacrecsauseeaenssansteseteaabsnussaneesubseeas 


-AT LEFT EDGE OF ROW? 
YES, GO ADJUST COL. 
°NO, DECREMENT COL. "AND E EXIT 


87 ROW 0? 

NO DECREMENT POSSIBLE-EXIT. 
"DECREMENT ROW 

iN, COL. TO RIGHT EDGE. 


CMPOS: 


1S: 


es: 


CMPB 


B 
RTS 


LNRW+1, #40 
1S 


* ae 


LNRW, #40 
es 


LNRW 
#157, LNRW+1 
RO 


smeemeateinnage ott th al og taht teh hae ae ap tah b> tent re tt te ta 


T CURSOR 


POSITION IN A 


LINEAR 
OW 11 , COL QO). 


(IE. COL 78 OL 79 
HEHEHE HEHE HBB HHH HEHEHE HHH HEHEHE 


;AT RIGHT EDGE OF ROW 
YES, ADJUST ROW AND COLUMN. 
NO. INCREMENT COL. COUNT 


“AND EX 

“AT BOTTOM ROW? 

3 YES, NO INCREMENT POSSIBLE-EXIT. 
"INCREMENT ROW COUNT AND 
cet COL. TO LEFT EDGE. 


CPPOS: 


1S: 


es: 


RTS 


; SUBROUTI 


 LNRW 
#40, LNRW+1 
RO 


sARE REPOR 
RECEIVE L 


: BE 
; GOOD DAT 


LNRW+1, #157 
LNRW+ 1 
RO 
LNRW, #67 
es 


LNRW: WORD O CONTAINS UPDATED CURSOR POSITION. 
53H IGG 


TO XMIT, RECEIVE AND COMPARE. DATA ERRORS 


eet 1 Epon THE TRANSMIT OR 


ea ce Me ra 


hy nes” 


FROM SUBROUTINE WILL 


NE TENT eee Al (Rl)= 


FER AND 
id HANG, THE ROUTINE 


WILL WAIT FOR END OF REC. "MESSAGE EON). 


¢ SELLA LAEALLHLALALALE REE RL LALLA LALLA ERLL ELE RELA RAEL AERA LL LELE 





MAINDEC-11-D2VTJ-A 
O2VTJ. PLL END OF 


a? 





Sas RRISR ESS Iso sad See R ATER BORGIR Bs ese at oes aoe 


aR 
7550 
He 
7566 






Cs 


StEtett St Sth Stet Stet tat ett et tat att tet tat tt att ht BR ot atatatatatatatat atop at 
JSPRERRBIAINODINESTSRENBSASREES RE SREREES 





aa 


es 


em 
e 


ss 


ae 


Po © 


BS 
Sra 


f. 
ba 
oO 


er 
et ee 


eS 


oOo 
bse 


RS 
Re 


is 


eo 


BS 


= 
_— 
Tw 


JO6 


ence AA ve ran 7(732) @S-SEP-76 09:05 PAGE 74 


as 
1 002260 


015754 9015760 
100000 002260 


XRCMP: 


RY, -(SP) 
Ru 


(R1)+, (R2)+ 
RS, #TCRLB+500 


-(R1), (RS)+ 
(Re), (RS)+ 


RS)+ 
(Ri)+, (Re)+ 


STCRLB+450,RS 


ON S 
RECEIVE C 


Rae QPERATION BEGUN? 
;YES=GO RE 

GUTH cee 

NO LOOKING FOR XMIT DONE? 
DELAY AND LOOK 


;YES RUN 
sFOR XON OR RECEIVED CH. 


; TRANSMIT TIMEQUT-SET UP ERROR EXIT 


;SET UP TIME OUT DELAY 
s INSURE COMPARE POINTER 
iLES Mg Re le POINTER 


: EXIT 
s INCREMENT FATAL XMIT COUNT. 
;RESET INTERRUPT POINTERS. 


;;PUSH #REOM ON STACK 
;;PUSH #4 ON STACK 


:NC EOM-ISSUE ERROR AND EXIT. 
‘NOW EXTRACT ERROR COUNT-IF ANY. 
“AND STORE IT IN RI 

Re RROR POINTER 

<NO=CHECK STATUS AND EXIT 

::DATA ERROR HEADER P PRINTED? 
:YES-BYPASS HEADER PRINT 

‘PRINT DATA ERROR HEADER 





KO6 
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Sov Pil Abu F INE ) 


END 


be 


#3 HEADER PRINT 
fia OR WAS LEGTIMATE. LOAD 
; TT RROR MESSAGE AND ISSUE 
(RS)+, SGDADR OAD RECEIVE COUNT 
Iss ly ekona ch ERROR 
OR_ COUNT 
: PRI ANOTHER IF NOT AT ZERO 


aah ROUT: TR AOASEFE cp) Bch ab 001 En“Etcx 


Sle JSR —s-RO, CKSFT s CHECK FOR veTaT /STRTUS ERR. 
RTS RO sixTT TT SUBROUTINE Ne 
HOFLG: 0 s INHIBIT PRINT FLAG. 
s LELAELLELLLL ALLEL LELLLLELLELELELELELERLELELELAELELELERELEELELLE 


is 
Sz 
; 


1$: 


StEtsteth 
—o--0— Cr 


ro 
3 

*“RRRCS 
+c © 
Load 


| GREER 





BB NRS ERS Se GRATOR 


10 s SUBROUTINE TO CREATE A ’RULER’ IN LOCATIONS 200 
i -T0 317. 
eit s LLLLSKELALKELELLLLLALELLLLEELLLAELELLALLEELLLLALELAL LEE LEL ALLELE 
is 020074 912701 o320et CRRUL: MOV aTCRLB+200,R sL 000 STARTING ADDRESS 
$315 855 110221 ab 1S: MOVB Re. (R1)+ “STORE A RULER BY : IN FR SHY BE 
3918 O20 032140 CHP #TCRLB+320,R1 sRULER COMPLETE? 
58 Bre -AND EXIT. 
= wore Brome | SPE OU, 
rat 
se BNE § : :NO-SEE FE ENG 


sSET UP TO ISSUE REVERSE 0. 
;END OF NORMAL VIDEO? 


OPM LOO Low crue ES 
Stes 

aL: 

e 

io 

S25 

af 

fo 


2b = b+ & + —2 b+ & = & 2 & => Hh = b-8 bs = Ph OP — * 


BNE 1$ <NOT AT END OF A VIDEO STRING. 
pf 1304€0 MOV #130460, R2 sYES-SET UP TO ISSUE NORMAL O. 
520 cs: MOVB Re, (R1)+ -D0 IT 
020 INCB = Re. “SET BYTE TO NEXT ASCII CODE 
920 SWAB Re “REVERSE VIDEO MODE. 
BR 1 “BEGIN NEXT STRING 


5 HH HE HEE SE AE HE HE HE EE HE EE SEE SESE HEHE SE HE SE HEHE HE HEE HE EH HE SEE HEHE HE SEE EEE HEE EEE 
; SUBROUTINE TO DELAY o. M.S. TIME THE NUMBER INLOCATION 
QUNT. THE ESS "PRE-DETERMINES THE # OF LOOPS 
; REQUIRED TO DELAY 10 M. ' FOR ONE ITERATION. LOCATION 
sPMULT IS PRE-LOADED WITH : 11/45 = 4, 11/40 =e 


Pag ES ESNet usru nay ial 


SAND 11710 = 
UHHH HHH HHH HHH HHH HEHE HHH EEE HEE EE Etat 
1 DELAY: 
BSDIEE o10146 Vv RL, -(SP) ; PUSH RI ON STACK 
BSoIeS 019900 NOV Re, T Re itoao’ pROcESSO SOR. eMULTIPLIER 
BSB PE Bt iyi BB DESB 43: MOV #14 Re wet 
3947 020172 005301 DEC Osé@R&L RUN BASIC BELAY” 








LO6 
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END OF PASS ROUT NE 


Ae 
2 2 ;RUN MULTIPLIER DELAY 
020220 Bre ame sRUN ITERATION COUNT 
MOV (5B), ;;POP STACK INTO Re 
oy i )+,R1 ;;POP STACK INTO Rl 


pebunt: 8 iTTERATION COUNT 


s RELALAAELLALLKLELLALAE LLL LEE LALLA FLAELERFLALELLLELERERELLARLLEE 


; SUBROUTINE TO GENERATE A INCREMENTING PATTERN AT 
;(R1)+. ENTER WITH R3 EQUAL TO # OF CH. TO CREATE. 
;RS IS UTILIZED AS "R WORK REGISTER. 


s ERELK LELFELEAARLALLLLALLL ELE RL LALLA LELELALL RE RLALELAELELERLALLE 


000041 BLDINC: MOV #41.RS sLOAD RS WITH INITIAL CH. 
BLDINA: MOVB RS, (R1)+ “MOVE A CH. TO BUFFER 
DEC R3 “DECREMENT BYTE COUNT 
BNE 23 : NOT -UPDATE PATTERN 
RTS RO sEXIT ly 
2s: INCB RSS : UPDA PATTERN 
000177 CMPB  =«-«#177,RS sPATTERN N EXCEEDED MAX? 
Q BLDIAC 
BR BLDINA s NOSISSUE CURRENT PATTERN. 


s RERLLLAALLLAL EAA LLEELELELLLALLLELALALERELELARLLELERELELELL ALLELE 


;SUBROUTINE TO FILL THE SCREEN WITH INCREMENTING DATA 
str iriit ttt tt ittitiiit iti titi tititititititt ttt ttt 


077577 002260 DATSC: BIC 877577, VSTAT sCLEAR INTERRUPT FLAGS. 
lb2b2 MOV TBBUF RI 
MOV #320. .R3 FILL xMIT BUFFER WITH INCRE- 
Deteee JSR RO. BLDING “MENTING PA 
016270 10$: #§ MOV STO TEH XMCNT SET UP TO XM 1920 BYTES 
040000 161454 BIS BXENA, AVICSR 
090001 o0e260 1S: BIT #XMDNE,VSTAT = ;XMIT DONE? 
BEQ 6 >NO 


s SEELELELALLELA RELA LEAL LALLA LALLA LAELAAALLLLEAA RELA RALLLELELERE 


; SUBROUTINE TO RESET VT61 AND DISPLAY MESSAGE 
sPOINTED TO BY Re. 


s LELLLERELELLLLL RELL RELLLRAALLLELALLAALAERALERELERLLAAAALALLLAAE 


016272 DSMES: JSR RO, RESETV sRESET THE UNIT AND WAIT FOR XON. 
077577 O02260 BIC #77577, VSTAT ; CLEAR ALL FLAGS EXCEPT XOFF AND XMKIL. 
BooboS 016270 MOV #5, XMCAT *PRE-LOAD XMIT COUNT. 











a --—- -406-———— — 


MAINDEC-11-DZVTJ-A vad 27072 eS-SEP-76 09:05 PAGE 77 


D2VTJ.P1l END OF PASS 
aos Getsee Qiecel mov weOH, URLs «= FR TART OF MESSAGE 
13721 MOV SCO, (R1)+ 


_ 
Sa aa 
aia 


nove (R2)+, (R1)+ ‘DISPLAY ME 
MOVB OM, (RL) s TERMINATE WITH END OF MESSAGE. 
161262 SI SXENA,JVICSR § ;XMIT IT AND WAIT FOR 
002265 2s: Bi BXMONE,VSTAT §§ :DONE 
2$ 
RTS RO 
; ELLA LLALALELLLAELELLELELELELLELELLELLELELARLLLELELE LE LALALLELEE 


;SUBROUTINE TO CONVERT A BINARY CHARACTER 
;10 TAL CHARACTERS. R1 CONTAINS BINARY 





SEESEES 


o-+& ~ db <6 -8-~—-§ « > ~p— 


NOU 


$ 


: 







4 Nun . RESULT IS STORED IN LOCATIONS SVERI, 
4 ’ 
: ' 2“ SRpenee Rar REE Teo een Anat Hee een 
l Ol ” MOV RS,-(SP) ::PUSH RS ON STACK 
4 Ol oon00e2 MOV 82,5 :(OAD ITERATION COUNT 
4 po0403 i. eR : ; SYPASSS SHIFTS FOR 1ST CONVERSION 
10629 1 ioe Ri :SHIFT A CHAR INTO POSITION 
Bie 002220 23: RI,SVERI(RS) § ;STORE THE BINARY OFFSET 
oe fame ieee Ounce SSG =| SE evueRIC? fetwenP eaeT Te Sct 
apse BSp4e8 Bee ’ IGECRERENT CONVERSION COUNT 
1 BPL :NOT CONVERT ANOTHER 
i o00040 002223 MOVB #40, SVER2+1 * LOAD 
“ 12605 (SP}+ RS -:POP STACK INTO RS 
020464 000200 RTS RO 


<= 


lant gta ota tt lt tll 
’ 


T , 
Srtiiiititiitittittittittitiit LL 





ra 
fseee 


, 


| Hue 020466 042701 177770 OCTBIN: BIC #177770,R1 sEXTRACT OCTAL COMPONENT 

| 404 7e 005702 TST ;FIRST CONVERSION? | 

Hog 74 001403 BEQ NOSHF T -YES - DO NOT SHIFT 

a: ASL Re ‘NO - SHIFT PREVIOUS CHAR. 

! soe Geen NOSHFT: abd R1,Re | sADD CURRENT CHAR. 

y s SEAALLLLLLAAL ERA LALALALALALAARKEL LARA A LAE LALERELALARLLARAAE 
| «SUBROUTINE TO CONVERT A BINGRY POSITION TO A OCTAL #. 
PTT TTT TI ISTTESETITETT STE TSTETTTSTESET ESS S TESTS SS TT ST TTT SST ETT T TT 
4057 o20510 905037 001776 ONVLN: CLR OCTLNE 

| 4058 020514 13737 001774 o02246 MOV TSTLNE,TPREG #§ ;LOAD OCTLNE WITH OCTAL EQUIVALENT 
| 40S3 O2e0S22 032737 000001 O02246 101$: BIT WBITOO,TPREG #§ ;OF TSTLNE IN BITS 8 THRU 11. 


“_— ~—-— + te ee oe —— — ae ow 
, 


z 
a 






PRrepRror en ciaa® 


SEES EECLELE EL 
0 b= 02 b= 02 0 b= 0 =n he hs he 


fr OBO VOR La 


411 


C 
Pil 


ssecsenenaceees 
a 
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MACY11 


END OF PASS 


161202 


( (732) 
INE 


161206 
002006 


020676 


NO6 
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G 
INCB OCTLNE+! 
BR 1$ 
102$: RTS 


s LELLAFLLALLELALEALALELLA SALA ELELFSLALELLLLLELA LALLA LELALAFLAELARE 


sROUTINE TO WAIT FOR C/R FROM VT61 UNDER TEST 
etritiitittiiiiittiititiietitiiititiititi titi itttt titi ttrei ee 





GTCR: at SRECON,@VICSR ;WAIT FOR REVEIVE DONE 
MPB »CARRT . ae = CARRIAGE RETURN? 
ae GTCR ~KEEP LOOKING 
TS RO iYES-EX IT 


mesecentmmatage i ne ae re tytn te tert tet rage tint am eaten 
TINE TO, GET A CHARACTER (NUMERIC) FROM THE 
;CONSOLE. IF OTHER THAN A NUNERI 


ee 


GTNUM: JSR RO. CONRD ;GET_A_CHAR 
MOV (SP)+. Ri -:POP STACK INTO Rl 
an ea oy id 
MPB beeRT, RI : CHAR. RANRIAGE RETURN? 
BEQ 1$ 
CMPBSfséR¢1, #60 
BLO QUST iJ CHAR. IS LESS THAN 60 
CMPB 1, #67 MORE THAN 67, TYPE 
BHI QUST “A QUESTION MARK 
1S: MOVB RI, TYPNUM - 
TYPE , 
cMPB) 6—-—sM&LNFED, RI 3 
BEQ  GTEX 
CMPB ARRT, R1 E CHAR. - C/R SET UP TO ISSUE 
BNE GTEXT SINE FEED BEFORE EXITING. 
HOVE LNFED, Rl 
GTEXT: RTS RO -GOOD CHAR., EXIT 
QUST: MOVB #77, TYPNUM 
TYPE TYPNUM sTYPE QUESTION MARK AND 
BR GTNUM ‘KEEP LOOKING. 
TYPNUM: .BYTE 0 
“BYTE 0 


5 EERE EERE RE EE GEE ERE RE REE EEE E EEE EE EERE AREER EERE REE E EASES 
; SUBROUT INE TO CALCULA K T R 
OF RS. R4Y IS STORAGE FOR THE CHECKSUM 
;CHARACTER. ALGORITHM FOR CHECKSUM IS ROTATE 
;CURRENT ONE PLACE LEFT AND XOR NEW CHAR. CHECKSUM 
;1S THE LOWER 7 BITS OF RY 


r mem mm mee em ee ES & ee 6 ee ee oe ee ee EE Oe eee eee ee ee ee oe eee ees 


BO? 








MAINDEC<11-D2VTI-8 MACYII 7.222) 25-SE°-7— 05:05 PAGE 79 
S2vTJ.P11 : END oF PASS ROUTINE ‘ 
4116 sEESPSSSSEFESESSSESELSSSSFSSESESSESESSEAESEAIFHSEFSSESFAFESSSEF FFF 
Sil, 
4118 O20700 042703 tee. CALCK: If #177498 RS ;CLEAR UPPER BYTE OF ¢: 
4119 ge0704 ig > 90002! CMPB aXON’ -CHGR, =sXON? 
| 418 7] 435 eo, Nota ;YES_60 NOT CALCULATE CHECKSU! 
4iel Oe07le le0Se7 0002 CMPS RS, axOFF 
| ig 620716 350i412 SEQ NOCALC : YES D0 NOT " CALCULATE CHECKSUM 
4} 20720 o0d=41 cic sINSURE CARRY BIT INITIALLY CLEAR 
433 ios7o4 TSTBséRY -SET UP TO ROTATE & 
4186 Oe07e4 100001 BPL 1$ a.) FULL 8 BYTES 
4128 020726 09026 SEC 4 WAS NEG. SO ROTATE A ONE 
4129 620730 106104 18: ROLB i TNTO LOW ORDER BIT. 
4136 732 910403 MOV RY R3 
| ]3} 34 «940503 BIC RSR3 :NOT A AND 8 
; a G44DS | BIC RG’ RS “NOT B AND A 
; 4] os BIS R32) RS 
' 4134 Qo 610504 MOV RS RY sORED NEW CHECKSUM 
4135 520744 O00290 NOCALC: RTS 
ME ; FLSSSRSFLSTFFSESSSSSESESRESELESSSSSFSFSSELSSSFRASSELELFLERELSFLLL LES 
| 4] ee -SUBRCUTINE TO LOAD XMIT BUFFER FROM RO THRU R 
me. eee a chee | sgunnebebacanacennscavecneseenssenseusccaoncnsseocesseseuceuense 
| wala c207 46 LOBUF: MOVE (RQ)+,(R1)* —; LOAD_A BYTE 
| 4132 - : UNTIL ZERO BYTE FOUND. 
: <3 44 . FEPEFSEHEGSSFSFEFESMHEFSEHSSEHFRESSSSESSESEFR SSH SESFLSRS FSH EE TSBES 
/ Blas : CHECK THE VT61 FOR A PER RT. 
: ie ; . SEAEEEESESASELRELESEELSSESESES SES EREESEEE SEES EELS ESSERE EREEEEES 
4148 020754 37 010000 002260 CKABRT: BIT BPABRT,VSTAT § ; ABORT FLAG RECEIVED? 
4149 beo7be 445 BEC *NO-EXIT 
/ 4150 ions? 001124 | MOV , SGDDAT 
| 4151 -020770 162737 001124 - SUB 84° SGDDAT -POINT ERR PC TO MAIN ROUTINE. 
4} 920776 013737 O02260 COlleé MOV VSTAT, SBDDAT 
| 4153 1004 104020 ERROR 20 sISSUE PERIPHERAL ABORT ERROR 
| 4155 021006 013701 O1c2¢e2 MOV TBBUF RI 
| 4156 G21012 904037 36 ISR RO, LDBUF -LORD THE XMIT BUFFER WITH: 
. 4157 021016 033 T. Bee, BYTE .E5C,.0,.IABT,.ESC,.0, .RABT 
4] 1921 117 140 
i138 be1064 bas ii? 1 BYTE ot ke BEL, . is 
| 161 021032 012737 016270 MOV 87, XMCNT -SET UP TO XMIT 7 BYTES. 
| ibe 21040 016676 JSR RO; XMREC *XMIT AND RECEIVE. 
Wl 1044 NOP 
4164 021046 016010 000170 CMPB TRO, SNABRT : ABORT oft AG CLEARED? 
4165 O210S4 0014! . BEQ : YES-EXI 
| 4166 1 A 001124 MOV RO, T *NO-SET UP AND ISSUE A CANT 
«41g 1 i 00004 001124 SUB 84 AT “CLEAR ABORT FLAG ERROR MESSAGE. 
| 4168 O21 13737 O0e260 001126 MOV VSTAT, SBDDAT 
/ 4169 ats 10402 1 
4179 ell 3 2s: Bre” 0 
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 EERRERESSERSREREEL ESAS EASES RESSELELELE RAS ELEEL SESE ES EEELE SS EH 44 
; SUBROUTINE TO COMPARE RECEIVED KEYBOARD DATA WITH 


sDATA EXPECTED. 


ERRORS ARE REPORTED AS POSITIONAL 


: reveneskinenensestieeasenesesnenensensnanannenneneneniesaetes 


CKKED: 
KBDOLP: 


1$: 


GDSTRK: 


CNTF: 


CLRB 


TSTB 
RTS 


aaa “oes 


SABLFP 
CHRD 
SABLFP 
74 
QABUFP , CHRD 
DABUFP 
CHRD =—s_ , (R44) 
GOSTRK 
BUBCT 
BUBCT, #10 
a 
DTTBL(RS), RI 
RO, BINOCT 
SVERe, SVERL 
SVER141, #60 
SVERL, #62 
Oi 

#2, SVERI 
#370, SVER1 
SVERI KYeTRK¢! 
S Rid] RYSTRE 
SOKBERR’ , 

sLDXMIT 
(RY) 
RO *BINOCT 
eSVER1 

*LOXMIT 
RO Sealy 
CHRD 
RO *BINOCT 
BSVERI i 
RO XMIT 
eSCRLF 

+ TBXMIT 
RY 
(RY) 
KBOLP 
RO 


;CLEAR RECEIVE BYTE 
; CLEAR eur STORAGE. 
;WAIT FOR A INPUT. 


T_AND 
HE INPUT AREA. 


E T ERROR COUNT. 
xed SUBROUTINE. 


2 
: 
9 
z 
“3 
3 
g 
Se 


POI T UP TO BORROW. 
*NO-JUST SUBTRACT 2. 


s SUBTRACT AND BORROW. 
sLOAD THE CONVERTED DECIMAL &. 


; ISSUE BODY OF KEYBOARD ERROR. 


;CONVERT AND ISSUE GOOD CHAR. 


; INSERT & SPACES IN MESSAGE. 


;CONVERT AND ISSUE RECEIVED CHAR. 


ISSUE C/R AND L/F. 
“L FOR KEY AGAIN. 


MN ae ROW COUNTER. 
REACHED ND OF ROW? 
ae OR NEXT INPUT 


s EEELELLLELELELLLLELELELALATLLELAELELALLLLLAAALAAA RAL LLERELELELE 


— = = Sa eT | ES a Ce 





—-— = ——-s EE A A A a EE SH FS Ae 6 





Pa 


Seat 


“11-DEVTJ 
li 


=e <a eet 6 ee ee 


Macy 722) 
eYAS Fine 


“ENO OF PASS 


0216S2 
Hes 
ale 


0775 
015760 
00308: 


J157S6 
Oléete2 
02268 
002260 


07 
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FUNC HTN ane A OWED. BUT THROUGH ai Sars ER. ALL 
; FUNC T BLOCK _T . MIT WHICH 
BYTES WILL RESULT IN ION 


ete 
RATION AFTER SSe RECEIVED BYES. 
s FLESELELLSERLSSLSLLELRLELEKELELELSLELELELSLLFLELAELELAELELS ELFEF 


LOOP: INC XMZER ¢SET UP TO XMIT NULLS. 

MOV #TCRL8+S00,REBUF’ -RESET BUFFER POINTERS 

MOV BRCRLB, TRBUF 

JSR RO TR sRELOAD ALL INTERRUPT POINTERS 

BIC 879577, VSTAT 3 CLEAR ALL FLAGS. BUT XOFF AND XMKIL. 
LOOPT: MOV RBUFP. RY -SET UP RECEIVE FLAG 
COOPTA: BIT SXMONE,VSTAT =: XMIT COMPLETE? 


BEG LOCPR : NO 


— e————_— Se or -— ror ee = ee —_——— ae ee 





“2 or of 


07 
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Soe ENO OF Pres AbuF INE 
4243 21416 042737 000001 002260 BiC BXMDNE, VSTAT YES RESET FLAG 
teas peies 737 «015754 015760 NOV REBUF , RBUFP SET THE REC. BUFFER POINTER 
1434 001400 002260 LOOPR: BIT ace +ESC, VSTAT CEIVED AN ESC OR EPL? 
i ata ate Bie OCU PSTR “ ao PHECK Tf 
1444 015760 CMP REUFE RY CEIVED A SISPLAY CHAR? 
= be 8G 2 
1 Oel ] 010640 174276 LPSTR: MOVB  dABUFP, IRBUFP vee LOAD IT IN THE BUFFER 
O21 4be Ot ? INC RBUFP s AND NCREMENT BUFFER POINTER 
4 , 400 002260 YC aEPL se SC, VSTAT sf AR a3 FlBEe _ 
ie ° 
ieee at Baeoa9 sige is XMCNT HTRCRE XMIT COUNT 
4256 O21504 123777 OO02166 O10606 CMPB ESCN, JABUFP “CHAR. A ESC(033)? 
Bsialg OOlrs3 Q Locet :YES WAIT FOR NEXT PART OF FUNCTION 
1519 1} 002010 174236 MOVB §LNFED,@RBUFP = :CHAR. WAS EPL ADD A LINE FEED. 
4259 rate 37 015760 I RUFP 
l 1258 918270 000764 BUMPCT: Rp XMCNT, #500. {SUFFER ABOUT F FILLED? 
262 021536 103403 BLO FRCECT 
4262 921540 005337 015760 1S: DEC RBUFP S YES-RESET THE RECEIVE POINTER 





07 
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OZ2VTJ.PLi END OF PASS ROUTINE 





2b 1 ig fi LOOPT 
4 l 016270 FRCECT: INC XMCNT sINCREMENT THE XMIT COUNT 
Hebb 37e7 Ol6270 o0000e XMCNT, #2 iE IRST CHAR TO XMIT? 
ise aE 940000 160172 a i aXENA, OVICSA s YES SET 1 THE HIT ENABLE al 
4 lanl 
4558 nate Sai iets; NE_FOUND. 
ore 021576 000200 RTS RO pay EXIT 
= s EELLELLLRELSLLLLASLELELLFLLLLELELLELLLLLAELALALLELLLALELLLLELES 
4574 | ; SUBROUT INE TO CHECK FOR END OF TEST COMMAND. THE CONTROL 
4 ¢ KEY EXITS ALL TEST 
seve PUTTTTTLTEPreeTeriTerTrertttrererrrerTreerTrrttTertrrrtt Trt tee 
4278 021600 127727 O10514 000003 EXTST: CMPB  SABUFP, 42 :LOOK FOR CONTROL C. 
1273 021606 901020 BNE NOROUT’ 
4281 21610 012737 031617 015756 ABSXT: MOV eRCRLB+H77 REBUF -RESET THE BUFFERS 
4 1616 012737 031620 Olé26e MOV 8. TBBUF 
4283 021624 O04037 017262 JSR RO RESPIR sRESET ALL POINTERS 
uce4 021630 O! 027541 MOV RO, RESP 
4285 21634 D403? 020316 JSR RO Notes sISSUE EXIT MESSAGE 
4oBB e140 021652 CLR XMZER ‘CLEAR THE ZERO TRANSMIT FLAG. 
4287 021644 062700 000002 ADD #2, RO -SET UP TEST EXIT. 
4 O216s0 000200 NOROUT: RTS RO “EXIT SUBROUTINE. 
4290 Oc16S2 o00000 XMZER: .WORD O 
aeol HGHHBGEHHHGHE GBH HHHHEHEHHHEHEHHEHEHH HEHEHE HEHEHE 
4232 -SUB-ROUTINE TO LOOK FOR VSTAT BIT ON THE STACK 
4 “DELAY FACTOR IS FIRST WORD ON THE STACK AND VSTAT BIT 
4oay IS THE SECOND. MIN. DELAY IS 4 U.S FOR A MOS 11/45. 
usa  sunsenebizueedeseseshiecSecOeSGEESTESEGLSENESOSESITESAISTINOES 
4297 021654 WTBGND: 
| 4398 De 1654 012637 o02256 (SP)+, ROSVE :POP STACK INTO ROSVE 
| 4299 021660 012637 021742 (SP): VDLAY *:POP STACK INTO VDLAY 
| 4296 De 1664 mei 021740 HOV {SP )+, VBIT ::POP STACK INTO VBIT 
| tobe athe aE 002260 2S: StF VBIT. VSTAT sSENSED THE CONDITION? 
| 921702 001012 BNE FNDBT : YES-EXIT. 
| 4304 021704 005337 002254 DEC DLAY ‘NO-RUN DELAY 
| 4305 21710 1 BNE 2§ 
ae Bie Bia, 2) eS epee 
4308 021720 10401 ERROR 11 “DELAY EXPIRED-ISSUE HUNG NIT 
| 4309 021722 002234 TNC FTLCNT INCREMENT FATAL XMIT COUNT. 
| 4310 el 00401 BR TMEXT 
| le ra 720 FNOBT: TST (RO)+ -SET UP FOR NORMAL EXIT 
| 43] 1 013746 o02256 " MOV ROSVE, -(SP) ::PUSH ROSVE ON STACK 
GE Bing Bem arf 
_ 74 
| ai sme a7 J caneetenianigmeiemmeimetmmentensammnianets 
4318 »SUBROUTINE TO LOOK FOR XOFF BEFORE EXITING A RECEIVE ROUTINE. 


4319 oe de HE EGE HII HEE EEE ae 








END OF PASS 
4 
4321 021744 005037 o022s4 CKOFF: CLR DLAY 
4328 021750 032737 100000 002260 1S: BIT #RXOFF , VSTAT 1S XOFF SET? 
435 651765 0C22S54 LAY : RUN AY. 
4325 021764 00:37! BNE 1§ 
‘ 02176 500200 es: RTS RO 
. : SEHEEREELEDERSHE FEES EELS SEEELE SSE RES EFAR IF EEF ESF EPR ELE ESS DEAE EPSEE 
4330 .SBTTL SCOPE HANDLER ROUTINE 
4272 #THIS _ ROUTINE ONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
43 ; #AND EST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
4334 #AND toa THE ERROR FLAG (SERFLG) INTO DISPLAY<1S:08> 
4335 ; THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
43 -#SW14=1 OOP ON TEST 
4337 eau t=h INMIBIT ITERATIONS 
4339 :#SW08=! LOOP ON TEST IN SWR<7:0) 
4 . :#CALL 
4341 ;# SCOPE ;;SCOPE=I0T 
ise 
434 SSCOPE: 
4344 037 piusue JSR RO, MONIT 
4345 0000 157134 1S: BIT #BIT14, ISWR ;;LOOP ON PRESENT TEST? 
BNE SOVER “YES IF SWi4=1 
-gaseeSTART OF CODE FOR THE XOR tesTERseass 
$xTSTR: BR 6$ F RUNNING ON THE “XOR” TESTER CHANGE 


:: THIS INSTRUCTION TO A “NOP” (NOP=240) 
MOV af (SP) j}SAVE THE CONTENTS OF THE ERROR VECTOR 
00004 Noy aS SHER ;3SET FOR TIMEOUT 





MAINDED=11-D2VTJ-A MACY 271732) 25-SEP-76 03:05 PAGE &4 
D2VTJ.P1l uti 

' 

| 

| 

j 

' 

| 

| 

; 


TST -TIME OUT ON XOR? 
MOV 381/7080 JHERRVEC RESTO THE ERROR VECTOR 
BR $SVLAD NEXT 
cS: CMP (SP)+, (SP)+ - TACK ‘BFTER A TIME OUT 
MOV (SP)+, JHERRVEC #3 TORE VECTOR 
BR 75 ON THE PRESENT TEST 
6$:;#eee8END OF CODE FOR THE XOR Fee ee eabes 
157066 BIT #8ITO8, ISWR -sLOOP ON SPEC. TEST? 
BEQ 2$ 338R IF_NO 
001102 CMPB 40s SW, STSTNM -ON THE RIGHT TEST?  SWR<7:0> 
BEQ Senet Bp IF YES 
toe’) y . a” herent 
001103 CMPB SERNAX, SERFLC *>MAX. ERRORS FOR THIS TEST OCCURRED? 
BHI 3$ ::BR IF NO 
1 157030 BIT #81709, ISWR ; ;LOOP_ON ERROR? 
106 BEQ 4 -:BR IF NO 
110 : 001106 7S: HOV SLPERR ,SLPADR ;:SET LOOP ADDRESS TO LAST SCOPE 
4 iF. 160 105037 0011 4S; CLRB SERFLG ane THE ERROR FLAG | 
4 yl 11 CLR STI j CLEAR THE NUMBER OF ITERATIONS TO MAKE 
4373 022130 00041 BR 1$ ibs ist NEXT TEST 
| 4374 Deel 32 004000 156776 3S: BIT #BIT11,9SWR ; ; INHIBIT fre TIONS? 
: 4375 eel 1011 BNE 1$ 
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TST SPASS IF FIRST Pass OF PROGRAM 

fe Stent 3 INCREMENT. TTERATION COUNT 

cre Stites, stent eck HE NUNBE RO YTEReTIONS MADE 
1S: MOV #1, $ICNT + PAT TIAL ee ie LTeaticy 60 COUNTER 

MOV SMXCNT,STIMES ;:SET NUMBER OF ITERATIONS TO DO 
$SVLAD: INCB $TSTNM *:COUNT TEST NUMBE 

MOV (SP), $LPADR ::SAVE SCOPE LOOP RBORESS 

MOV (SP) ,SLPERR -: SAVE ERROR LOOP ADDRESS 

CLR SESC ;;CLEAR THE ESCAPE FROM ERROR ADDRESS 

MOVB  4#1.SERMA Y ALLOW ONE(1) ERROR ON NEXT TEST 
SOVER: MOV I BINS, OOLSPLAY +0 DISPLAY TEST TEST NUMBER 

MOV : ADDRESS 

RTI : +FIXES Be 


SMXCNT: ; OF ITE 
HEHEHE HEHEHE EHH HHH 
-SBTTL ERROR HANDLER ROUTINE 

;# itSave ATV ERROR ATTEN NURGER THE ERROR FLAG AND THE ERROR COUNT, 


NUMBER AND THE ADDRESS OF THE ERROR CALL 


0 SERRTYP 
ie Sint OPTI "PRY DED BY THIS ROUTINE ARE: 


-#SW13=1 
:*SW10=1 

-*SWOS=] 

2 #C 

;# ERROR 

SERROR: 

73: INCB 
BEG 
MOV 
BIT 
BEQ 
TYPE 

1S: INC 
MOV 
SUB 
MOVB 
BIT 
BNE 
JSR 
TYPE 

20S: 

es: TST 
BPL 
HALT 
CMP 
BNE 
HALT 

38: BIT 
BEQ 
MOV 


reas 


ine} ERROR TYPEOQUTS 


COOP ON ON ERROR 


N : sERRORSEMT AND N=ERROR ITEM NUMBER 
SERFLG -SET THE ERROR F 
tS BON? T LET THE FLAG GO TO ZERO 

STSTNM, DDISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG 
sBIT10, JSWR **BELL ON E 

1$ ssNO - SKIP 

SBELL ; $RING BELL 

SERTTL COUNT THE OF 

(SP). SERRPC *:GET ADDRESS OF ERROR INSTRUCTION: 
#2, SERRPC 
JSERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
sBIT13, dSWR fet TYPEOUT IF SET 
BP SERRTYP -:G0 TO USER ERROR ROUTINE 

, SCRLF 
ISWR 


3$ Ske Ir CONTINUE 


ate AUTO-ACCEPT? 
ihe IF NO 
#BITO9, ISWR ; LOOP _ON ERROR SWITCH SET? 


SLPERR, (SP) : FUDGE RETURN FOR LOOPING 


reo -—— 0 ee ee ee Oe ee ree ee een eee TT A 
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4§; ie} SESCAPE 
MOV SESCAPE, (SP) 


;;CHECK FOR_AN ESCAPE ADDRESS 


-°BR IF 
- s;FUDGE RETURN ADDRESS FOR ESCAPE 


RTI - > RETURN 
Perrititit iiititittititiiititiiiitrttitiiiitititititittiti tte 
.SBTTL TYPE ROUTINE 
s#ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 


0 BYTE. 
-#THE ROUTINE WILL INSERT A NUMBER OF CHARACTERS AFTER A LINE FEED. 
:¥NOTEL: L CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
: ¥NOTEO: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
; HNOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
»¥CALL: : 
#1) USING A TRAP INSTRUCTION 
i TYPE  ,MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
* i TYPE 
.# MESADR 
;# 
STYPE: TSTB STPFLG 2 21S THERE A TERMINAL? 
HALT -:HOLT HERE IF NO TERMINAL 
1$ MOV 2 -(SP) -: SAVE RO 
MOV JetSP),RO -:GET ADDRESS OF ASCIZ STRING 
3 MOVB  (RO)+,-(SP) -:PUSH CHARACTER TO BE TYPED ONTO STACK 
BNE 4 -:BR IF IT ISN’T THE TERMINATOR 
TST (SP)+ ©: IF TERMINATOR POP IT OFF THE STACK 
60S MOV (SP)+,RO * sRESTORE 
3$: B00 #2, (SP) *: ADJUST RETURN PC 
RT ; sRETURN 
4S CNP THT, (SP) -:BRANCH IF <HT> 
CMPB pre, (5 ssBRANCH IF NOT <CRLF> 
Ai (SP)+ >:POP <CR><LF> EQUIV 
TYPE. -: TYPE A CR AND LF 
5k 2 GET NEXT CHARACTER 
c$ JSR PC STYPEC »2G0 ire THIS CHARACTER 
6$ CMPB) 40s«oSFILLC,(SP)+  3:IS IT TIME FOR FILLER CHARS.? 
BNE 2$ -: IF NO GO GET NEXT CHAR. 
MOV SNULL , -(SP) °:GET # OF FILLER CHARS. NEEDED 
*:AND THE NULL CHAR. 
7$ DECB 3~=s«1( SP) *:DOES A NULL NEED TO BE TYPED? 
BLT *:BR IF NO--GO POP THE NULL OFF OF STACK 
JSR PC, STYPEC -:GO TYPE A NULL 
DECB S$CHARCNT >:D0 NOT COUNT AS A COUNT 
BR 7$ : LOOP 


;sHORIZONTAL TAB PROCESSOR 
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S$: MUVB 840 3 s REEL ALE TAS WITH SPACE 
9S: *: TYPE A SPACE 

*:BRANCH IF NOT AT 





331 
-:PO ACE OFF STACK 
*:GET NEXT CHARACTER 
STYPEC: ape \ ¢ ssWAIT UNTIL PRINTER IS READY 
MO ot) a$TPB :sLOAD CHAR TO BE TYPED INTO DATA REG. 
C #15,2lSP) :;BRANCH IF 
1$ -:NOT <CR> 
CLRB SCHARCNT se 
SR > sEXIT 
1$ CMPB #12,2(SP) : BRANCH IF 
BGE STYPEX -°<LF) 
INCB (PC)+ :; INC SPACE 
SCHARCNT: .WORD OQ > COUNT 
STYPEX: RTS PC 
2% EQUATES 
tht=11 
TCRLF=200 


5 EREREE HARE REEL RELL ERLE ERAGE REE ERE EERE EEA EEE LEE ERLE EE ELE EES 
~SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


s ATHIS ROUTINE apes THE “ITEM CONTROL BYTE” (SITEMB) TO DETERMINE WHICH 
ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE “ERROR TABLE” (SERRTB), 
#AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
SERRTYP: 

. T SCRLF ::"CARRIAGE RETURN” & “LINE FEED” 

MOV RO, -(SP) es 

CLR RO ::PICKUP THE ITEM INDEX 

BiS8 dseSITEMB,RO 

g -:IF ITEM NUMBER IS ZERO, JUST 


HE PC OF THE ERROR 


-° TYPE 
ee SERRPC FOR TYPEOUT 


MOV SERRPC, -( SP) 


: :ERROR 
TyPOC 0s :3GO0 TYPE--OCTAL ASCIICALL DIGITS) 
1S: DEC RO -:ADJUST THE INDEX SO THAT IT WILL 
ASL ss THE ERROR TABL 


RO ;;FORM TABLE POINTER 


#SERRTB 
MO )+, 28 -:PICKUP * SAGE” POINTER 
BEQ 3$ -:SKIP TYPEOUT IF NO POINTER 
TYPE >: TYPE THE "ERROR MESSAGE” 
2$ . WORD -:"ERROR MESSAGE” POINTER GOES HERE 
TYPE SCRLF "CARRIAGE RE . P 
33: MOV (RO)+, 4S ‘ ssPICKUP "DATA HEADER” POINTER 
BEQ S$ ::SKIP TYPEOUT 
TYPE »s TYPE THE ™ 
4S: WO -:"DATA HEADER” POINTER GOES HERE 


5; CARRI RETURN” & “LINE FEED” 





| 
| 
| 
| 
| 
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OUT INE 
cs: MOV R1,-(SP) : SAVE RI 

MOV (RO)+, Ri :PICKUP “DATA TABLE” POINTER 

BEQ 93 : BP IF NO DATA TO BE. TYPED 

MOV (RO)+, RO et Pe FORMAT” POINTER 
6$: ISTE {RO)+ ° TAL “pectin” 

MOV 3(R1)+, -(SP) Save shite FOR TYPEQUT 

TYPOC -:G0 TYPE--OCTAL ASCII(ALL DIGITS) 
- 62 8S 

; MOV Q(R1)+,-<SP) 5 ;SAVE Q(R1)+ FOR TYPEOUT 

TYPDS :GO TYPE=-DECIMAL ASCII WITH SIGN 
8S: TST (R1) 31s THERE ANOTHER NUMBER? 

BE oF “BR IF 

YPE 11S t Type TWO(2) SPACES 

BR bs ; ;LOOP 
93: MOV (SP)+,R1 ; ;RESTORE Ri 
i0$: MOV (SP)+'RO “RESTORE RO 

TYPE ,SCRLF 3; CARRIAGE RETURN” & “LINE FEED” 
11S: aSciz 7 / t TuoC2) SPACES 

EVEN 


itr itiititiiiiiiiitittiiiiitiiitititititiititiiittititititi ee: 
.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
;*THIS ROUTINE IS USED TO ONIN A 16-BIT BINARY NUMBER TO A 6-DIGIT 


s¥OCTAL (ASCII) NUMBER AND T 
*$T a HERE TC SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


eC 

* " MOV NUM, -( SP? ;;NUMBER TO SE TYPED 

* TY >:CALL_FOR TYPEOUT 

+ BY N Nel TO & FOR NUMBER OF DIGITS T0 TYPE 
;* BYTE MM 33M=1 OR 0 

+ t } O=SUPPRESS LEADING ZEROS 


:#$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PRRGHE TERS AS THE LAST 
; #STYPOS OR STYPOC 

*CALL: 
ts MOV NUM, -(SP) 


sNUMBER TO BE TYPED 


:# TYPON CALL FOR TYPEOUT 

x§TYP0C---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

: MOV NUM, -(SP) sNUMBER TO BE TYPED 

* TYPOC CALL FOR TYPEOUT 

$TYPOS: MOV a(SP),-(SP) :sPICKUP THE MODE 
MOVB 1(SP),SOFILL 5 ;LOAD ZERO FILL SWITCH 
MOVB § (SP)+,.SOMODE+1 ;;NUMBER OF DIGITS TO TYPE 
80D te 2 (SE) + ADJUST RETURK ADPRESS 

STYPOC: MOVB  ##1,S$0FILL »;SET THE ZERO FILL SWITCH 
MOVB #6, $OMODE+1 ::SET FOR SIX‘) DIGITS 
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MUVB , SOCNT 
MOV R3,-(SP) 
MOV RY, -(SP) 
NOV RS’ -(SP) 
V8 = +1,R4 
NES R4 
ABV Ra’ SOMODE 
MOV SOF ILL, RY 
MOV 1e(SP),RS 
CLR 
1$: ROL RS 
OF 3$ 
es: ROL RS 
ROL RS 
ROL RS 
MOV RS,R3 
33: ROL 3 
DECB S$OMODE 
BE irr 
I a] ,R3 
BNE - 
TST RY 
BEQ S$ 
4; INC ae 
BIS #°0,R3 
cs: BI *  R3 
MO R3, 8$ 
T g¢ 
7S: DECB 3 =-—« SOCNT 
BGT 23 
BLT 6S 
INC RY 
BR 2$ 
6S: MOV (SP)+,R5 
MOV (SP)+-R4 
MOV (SP)+,R3 
MOV 2(SP);4(SP) 
, Nov (SP)+; (SP) 


SET THE ITERATION COUNT 
-sSAVE R3 

CET The NUMBER OF DIGITS TO TYPE 
: ; SUBTRACT T FOR MAX. ALLOWED 
8 The “ie uaF SWITCH 

| NPUT NUMBER 

TPUT WORD 


+ Bony. 
3 ZERO FILE Su 


fs TO TYPE 


SOHODE: ORD saanneend MBER OF OGETS, TO TYPE 

-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

s¥THIS ROUTINE IS USED TO CHANGE A 16-BI1T BINARY NUMBER TO A S-DIGIT 
AND DEPENDING ON WHETHER T 


;*SIGNED DECIMAL (ASCII) NUMBER 
S POSITIVE OR 


YPE IT. 


WHE 
NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 


;*NUMBER I 
;*BEFORE THE FIRST DIGIT OF THE — LEADING ZEROS WILL ALWAYS BE 


; ¥REPLACED WITH SPACES. 
*CALL: 
NUM, -(SP) 


i MOV 


;;PUT THE BINARY NUMBER ON THE STACK 
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;;G0 TO THE ROUTINE 





PUSH 


iE 
Ua Re 
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Hicheck Tr acb 
;;FALL THROUGH 


 STTu DOING 
: BR : YES 


ABE 


Por 


T 
es 

T 
ACK 
TCH 


F 


CONSTANT 
DIGIT=0 


NG 0’S? 


StUIAS THE LSD THE FIRST NON-ZERO? 


BR IF NO 


::YES=-SET THE SIGN FOR TYPING 
: TERMINATOR 


3 POP 
,° 


HADJUST THE STACK 


;;RETURN TO USER 
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ae THE ae NO? 


SDBLK: .BLKW 4 
5 RERRERRERERREEEE PES EEREREEEEREA ESE SAL ESSE SESS ESEE ES SESE SEES E TES 
-SBTTL POWER DOWN AND UP ROUTINES 


Sete COMERT fa att Ae 


0 DECIMAL AND T 





ey (SP) a5 TACK 
NOV (SP) . + PL Ri TACK 
MOV Sal Hs S ON STACK 
nov SSPLRUP SEPURVEC’ }sGeT UP VECTOR 
BR ;sHANG UP 
~ -POWER UP ROUT 
4 $PURUP: MOV ;;GET SP 
4 CLR :;WAIT LOOP FOR THE TTY 
“ 1$: ie ssWAIT FOR THE INC 
~ ::O0F WORD 
~ MOV ;;POP STACK INTO RS 
MOV ;;POP STACK ute a4 
MOV -sPOP STACK INTO R3 
MOV »sPOP STACK INTO Re 
MOV +E Op athe ate l 
MOV ° re i> ne Pe RO vector 
NOV #340, SAPURVECSS Ha or PUR Oca 
TYPE » poh eee FAILURE 
he WO SPOWER yar FAI LE SSAGE POINTER 
Ic #20, (SP) > CLEAR a) 
SILLUP: HALT 337 R STARTE 
aa TEE OR e SEEN Ni STEAL 
SSAVRE: -:PUT THE SP HERE 
SPOWER: .ASCIZ <15><12>“POWER” 
ee EVEN 
uvee 4 KEAKARSLALAA ERE RLLA AA HALERE LA AAAAAALESRALA LAE HLAARL ERASER ALZLEREE 
ne -SETTL TRAP DECODER 
ne SAND: BOUTS Mt he" A THE Ler BYTE OF THE “TRAP” INSTRUCTION 
o 0! HROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
4760 -#0F THE DESIRED ROUTINE THEN USING THE ADDRESS OBTAINED IT WILL 
ize : #60 TO THAT ROUTINE. 
47 C2e3622 O10046 STRAP: MOV RO, -(SP) SAVE RO 
4764 Oe 600 oococe MOV 2(S5P) RO GET TRAP ADDRESS 
4765 3b 4 TST -(RQ) BACKUP BY 2 
4766 0236 111000 MOVB (RO),RO : GET RIGHT BYTE OF TRAP 


4767 023634 006300 ASL _ RO ea age FOR INDEXING 


r oe ee oe ot Omen OE lO eee 


B08 
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DavTJ. TERE DECQOER 
4758 C226 018000 oz3644 MV -« STRPAD(RO),RO ss INDEX TO TOSLE 
H2E3 SE2G4E SISECS RTS «RD 3360 TO ROUTINE 
71 
| pie: ; »SSTTL TRAP TRELE 
res Boat a :#THIS’ TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
| 4275 ! / [*8Y THE “TRAP” INSTRUCTION, 
x8 ’ VA ; ROUTINE 
4778 ( ; OSS 
e77§ 023644 TREAD: 
4780 DSsh44 022412 STVPE :CALL=TYPE TRAP *OC( 104400) TT TYPEQUT ROUTINE 
4762 Cesbub Destet STYPOC $:CALL=TYPOC  TRAP+1(104401) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
4762 23650 23002 | STYPOS : CALL =TYPOS TRAP+2(104402) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
| 4783 023652 23042 STYEON ;;CALL=TYPON © TRAP+S(104403) TYPE OCTAL NUMGER (AS PER Last CALL) 
| HORE Sesesy.. Ceseso STYPDS :;CALL=TYPDS  TRAP+4H(1O44O4) TYPE DECIMAL NUMBER (WITH SIGN) 
| S285 cesese 003332 002724 004132 TSTADD: TST1,TST2,TST2 
4788 23664 “DO4326 OO44E0 CO4E74 TST4, TSTS, TSTE 
4032 023672 C0514 005700 006360 TST7, TST10, TST21 
| 3g b2s700 o0Es72 ODE7HE ON7I74 TST12, TST13, TSTL4 
| HH 023706 oora1é C1004 plo3ze TST15, TST1E, TSTI7 
| 47% (923714 010470 O11174 11800 TST20, TST21, TST22 
«BB Cearee 11676 011750 TST23, TST24 
| = 
: Se 2372 O42523 020124] 052126 STUPN: .ASCII /SET VT6IS TO FULL DUPLEX, /<15><12 
ee 
| 4BD? 1 030066 poe .ASCIZ /9600BAUD, REMOTF.,PARITY MATCHED TO INTERFACE/<15><12> 
| 808 O26 iC 1040 
oD) Ben Fee bee Be 
4B} ' ¢ l 
WBI> GE4020 CHBIOS E5090 020117 
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| 4614 e404 O41 DoéSNS 000012 
 -4BIS 
ri, 
| 4B] 05015 O42401 051104 DUNTST: .ASCIZ <15)<12@>/ADDRESSES WITH RESPONSIVE VT61S ARE: /<15><12> 
«EIS DewoeD De1S08 Oteses 020183 
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See ee ae 
4£22 111 Oepl0s Sei 
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| See 
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7ENTER ADDRESSES OF VT61S5 TO BE TESTED/<15><le> 


(15><le@>/DJ11 FAILED AT ADDRESS/ 
/ENTER LINES TO BE TESTED IN BINARY FORMAT(I.E.0=1, 10=2000)7«15>< 12> 


“AN ESC SEQ. TO THE VT61 FAILED - OCTAL EQUIV. IS:/<15><le> — 


.ASCIZ /NO VT61 RESPONDED TO ESCZ SEG. AUTO RETRY iN 30 SEC.7‘i5>‘le> 
/ENTER TESTS: TO GE RUN/<15)<le> 
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REVID = 10358 0 3445 
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3 1631% 1633% 1635% 1646% 674% 1679% 1688% 1696% 1706% 1719% 17228 17268 1737% 
: 1757 ieee 1768 1779 # 1787% 1 # 1807# 1809# 1811 1815 l # 
| 130%  1@S3# * 1859% 1864% [866% 1871% 18728 882% 1903% 1921% 1 gus 
| : Bees bagge fuse Sisee | STBOe : eh 
: 7% % x * piiS® e141e 2148% 2159% 2180% 2184s 2152 
2199 e2le% 2239% e241% 2250 5267%  2276% 5302% 2307% 2311% 2323% 
| 23308 344% 2359% 2374 % 2396% eudes o4i2% 2418%  e429% S44Bs 
% 95% 249% 1# 2506% 2512% 2517%  2525% 2559% 567% 
| eb1 % 15% 7% 2619% bess ebscs Ob41% 2659 * ebs4e % P697% 
: % % % 7% Q% it 2732% 2753% 2761% 2762% 2769%  2772% 
2879% ate 2311 Sree * 302e¢0% 3035% 3042e% 304Ss 3075% 
| 309i 3102 3116% 31678 3192% 32204 3238% 3254 3332% 35178 3553 3554 
| St 79% 4 2 * 334 ¥ cat so20% + Bet 3698% 
| 11l# 14 1S% 17% # # + # 1% 788% # 3800% 
*  381S5% * 387S% %* 9882 * 93900 ck 5 3972 
| 3987% 4OOl# 4O1S«* * x 4Ob4* 4074" 4OB3e 4idle 4i3S* 4i41 4i43% 4iSsdO 
| GiS6® 4162 4166 4170 4194*% 4e0es 4e08e 42l0e Yelox 4el4e 4216s 4218%  Y2o4s 
| W238% 4269% 4e71* 4eB3* 42a 4oB7* oases 4 4314% 432% 4344 4459 44E0x 
: u461 44e4e 4520 4S2le 4Sepe 4Se9* 4S30%: 4531e 4S3ee 4533% 4534 4539 4S4S 
: usu7e 4sug 4562ee 4659 4669% 4673 4689 4690 4703 4720 4741 4763 4764s 


MSINDEC<11-DZVTJ-A8 
DZVTJ.Pli 


MACY11 271722) 


CROSS REFERENCE TABLE -- USER SYMBOLS 


4767% 
3166 


3E0is 





4768# 
3179# 


4769# 
3191 


eS-SEP-76 09:05 PAGE lle 


3201% 


3223 


2757% 


3232 


1421% 
1693% 


35i0% 





1825% 
1956% 
3193% 





MAINDEC-11-D2VT I-A 


TRO 
TRP 
STTE 
STTER 
STUPM 
SVER 
S 


| 
| 
| 
| 
| 
| 
; 
| 
! 
| 


—MACYLA 27(722) 
CROSS REFERENCE TABLE -- USER SYMBOLS 


3185+ 


348 


25-SEP-76 


34718 
3760 
2642 


4037% 
2833% 


3632 


4032% 


4195 
4345 


03:05 PAGE 113 


S544 


4033% 


4359 


3760% 


4O34# 


4361 


4195% 


4367 


3213% 
41 


4196 


4374 





400% 


4418 


sey aoe 
desey 4555 
S) 88% 
saee | Sse 
4118% 4119 
461S5* 4616 
3255 
1547# 1560 
1806 1936% 
es43% 2372e% 
2S6e% # 
e801% 2818 
2981% 89# 
3164% 3166 
3e78% 3319% 
35393 3594% 
3776 3777 
4038 4084 
4415 4431% 
4478%  4480% 
4562 4S93% 
4638%  465S# 
4697 4HER9 
4725% 4726 
4202ex 4203 
4423 4429 


bili ce 


HBBaRReE RCD 


WM£WwMUe--O 
00 00 08 00 08 98 08 08 08 08 08 08 08 88 08 OO 88 08 Oe 08 08 be oO Of oe 


EEEEEE 





Bao Shh Eoh 


= 


= 


006014 
012772 
TBUFP 016266 


: 
Be 
BS 


: 


oe Ga 


oe 


ag8 
BRS 
Bag 


T 
TIMEXT 1732 
TKVEC = 
TMNAD Olebe4 
TORDD O02e42 
TOFF 014754 
a: 

= 
t 13766 
TPREG 
TPRNT  O11S16 
TPVEC = 000064 


ee ee ee Oe em we ee Oe Oe we ee ee ee me ere a eee ee ee eee eee eee 


MACY11 E7(7 
CROSS REFERENCE TAS 


USER SYMBOLS 


1690 1720 
231 ese 
35378 75 
2815 

1632% 1634 
3509% 3511 
3291 

1889 19le 
3884 3886 
2157 

3519 35388 
2495 s 
28708 

3183 

19093 19293 
2972 3289 


e692 


1931 


3295# 


eS-SEP-76 09:05 PAGE 114 


32008 


2300 


3296 


3553 


3988 


3298% 


3565 


3300 


2084 2140 

2449 2504 

Yeooe 

1870% 2301% 
35234 3532% 
2190 2203 

S358% 

3596 

4uoss* 40os9 


2181 2186 

2633 e696 

2306% 2628 
3539% 3743% 
2258 2274 

4061% 


2191 
3509 


cb40# 
374S# 


e361 


- EE OS Ee 


SUR ohss PRE EST OE 


TRAPVE= OCOO34 7688 e806%  >807# 
TROY = 100000 10468 3210 3217 3220 
TRMID = 000002 10398 3423 
TRPA 1es44 See 
thee : , 
ve 12670 1327 1345 cb8ss 
ier Es : 33 7638 - 
aOD tea 47868 
TSTER 1S6 le44e 2493 
TSTLNE 1774 10868 i1440% 1441 1461 e3be4 2968 2396 2997 3041% 2038* 3089 4058 
TSTNM 264 990 1001 1005 1097 1009 13178 18SS* 1Se8* 3549% 
TPTR 13038 1429 1508% 3264 2269% 327S% 
Tl 1See8 4786 
TST10 1986 4790 
STll 20808 4790 
TSTl2 006572 elste 4792 
TST13 746 21768 4792 
TST14 174 eesse 4792 
T1S 16 ecS4e 864794 
TSTl 10104 233908 4794 
eth 010322 e441e 4794 
TST 003724 16238 4786 
Tate0 19470 24878 
TSTel 11174 c609% 4796 
tates 11500 c6739e 4796 
TSTe 11676 e7e38 4798 
TSTe4 911 27478 4798 
TST3 0041 1669% 4786 
TST4 Srna, 171Se 4788 
| 17518 4788 
TST 004674 17988 
TS 005124 18498 
| TXEX ASreD {aite 35348 
XSUM 100 10348 2025 33293 3368 
TXTCK 134 12098 
YPDS = 1044 eSS6 4ysss 47848 
= 104409 1344 1372 1388 1471 1472 pHS5 1498 1501 Zecy S57 este 2245 2878 
eSeé 307 3080 3087 3099 3251 4034 4103 4413 yee! 447e 


e380 3004 1 
4519 3 %398 ‘64 4543 4553 4563 4628 4704 4744 47808 


TYPNUM 020676 4093 4OS4Y 410e% 4103 41058 

TYPOC = 104401 4527 1 47818 

TYPON = 104403 47638 

TYPOS = 104402 1475 1480 1487 1492 6. «ehk983ti‘é298‘L 3084 3095 47828 

TYPE  O02226 13028 

TIERR 003634 1562 15988 

UNLKKB Br aa7s 11408 

UPDY = =«O14 se30—s: 32948 

VBIT O2ei740 4300% 44262 43158 

VDLAY bs Poe 4e99% 4306% 43168 

VECPT ] 10728 1419% 1423 1444x 1478 

VECT api oes 1085# I1N35* 2499 

VJCSR 0017 10818 142i 1459 1462% 1473 1S0S* 1S5e7# 16le% 1765%  2009% e2O034# e320%  234l1# 
e498 82509 2530% e70e e928 e2e938% 2939% ec943% e944# 2c966% e2969% e970%  e2971% 











MIINDEC-11-DZVTI-A MACY11 €7(732) 25-SEP-76 09:05 PAGE 116 
OZVTJ.PLi CROSS REFERENCE TABLE -- USER SYMBOLS 
* * 2% 3% 3030 * 
e2ch* $2775 $381, $988, $0053 shy: 962, soe Seat YS 
wee gure Tiere Tee Su PB aor 
VS BpsSed ; i 1Sa ta? Ses 1643 164 1651 1654 1756% 1769 1803+ 
7% 3,4 1923 99S*# 2007% 2023% O2S# OS0# 2051 2c 3es 
3% % 61% 9S% as seb* °3329 4S*  2349# 
1# 66% 3368% 374% 380 384 393% 19% ej 427% 
1s 3490% 14 S30% 3531 S66* 3615 3622 7\i% 
sous 36 abs 3726% 3735% 3840% 3845 3849 3858 3984s 
414 4] af 4239% 4241 4o43% 44246 42eS4* 4302 322 
VVECT 1s 10648 141 oe. 
varcR 1 these Tabs 3 select AEH core 3495* 3500% 3518 
WOSTOR 134 Snes 23ebe 5o35 7198 3764% : 
WTBGND pelea fhe le 2037 2323 e344 2512 3732 3882 42978 
XENA = 040000 10478 1765 20093 2034 2320 2341 2509 2702 2939 2343 2976 3eH4 3301 
Soop 33 3674 37e8 3757 3841 3989 4012 4268 
OS oh m3 968 
XMCN lé2 1677%  1695% 72e5* 1764% #1881% 2008% 2033% 2096 2147% 219% 249% 22662 2318% 
e340%® e2401% 17% e2458% eS08% 2701% 3498 3525 35418 3727% <3761% 3988% 4003 
4008 4l61l*e 4esS* 4261 YCBSe 4266 
XMONE = 000001 we Agee 035 2321 e34e 2510 2703 3£30 3677 3730 3845S 3931 4013 
XMITT 018732 36758 3710 
| XMIT1 017152 hte fad a3 1635 1811 1824 1859 1866 1871 2302 2307 2639 2641 
XMKTL = 10338 4 34 
| XrRES STEED 16% 16 1726 1s 2039 2148 2199 2250 2267 2402 2418 2359 36688 
| XMTAL 11 1194@ 1761 1805 1879 2339 
XMUT 57 4567 . 42698 
XMXT i714 3717% 
XMZER 1652 1456 3505 4035* 42e86% 42908 
XOFF = 000023 12968 1810 3347 4i2l 
XON = * 1781 1823 3351 3576 4119 
XRCMP 1 368 
| XREC 176 3848 385Se 3874 
| XRERR 17734 3853 3861 38758 
XREXT OQ1 9 3873 38798 
XROUT 78 3883 3888 39008 
‘Ea i fae ie 
' feats reer 32 1804 2271 2463 2492 2S2e 2689 3133 3550 3560 3594 
| ZFLAG O164S2 1463 1558 3045 359¢e8 
| SBDADR bai ise 8158 939 3639% 3654*% 3785S 
SBDDAT 0011 6178 9390 932 939 1005 1007 1601% 1604% 1854* 1734% 1923% 1932% 2018 
| e0S7# elll# e2156% e2157% e161% e2205% e409% e242eSe e2456% 2467% 2499e 2799 3622% 
. 3638% 3656% “* 3895% 415e% 4168 
| SBELL 001162 8338 4413 437 
| SCHARC Oeebee 44B34 4490 4499%x 4504 
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S758 #1605 1655 1681 1688 1698 1704 ##+%&*17e8 1735 1773 #1784 # «#1821 £1836 «©1884 ©1900 
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